Dateiname ausgeben!
16.06.2003 09:16:44
Chris
mein Problem ist folgendes! Ich möchte aus meiner Dateiadresse:
C:\Prüfergebnisse\2000\Dateiname.xls
ein Makro welches mir nur "Dateiname" anzeigt!
Mein Makro ist folgendes:
Dim Dateiname As String
pos = 0
DoWhile InStr(pos +1, Datei, "\", vbTextCompare)>pos
pos = InStr(pos +1, Datei , "\", vb TextCompare)
Loop
Dateiname = Mid(Datei, pos +1)
Das Resultat dieses Makros wäre: "Dateiname.xls"
Kann mir vielleicht jemand das Makro so verändern, dass als Ergebnis: "Dateiname" herauskommt!?
Danke für Eure Hilfe!
Gruß Chris