dateiname

28/02/2008 - 21:26 von torsten | Report spam
Hallo zusammen,

mittels des im Folgenden Listing lese ich Dateinamen aus einem Verzeichnis
aus.
Ich hàtte aber gern, das die ausgegebenen Dateinamen ohne die
Dateierweiterung ausgegeben wird.
Wie muss ich den Code erweitern? Kann mir hier geholfen werden?

Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*") 'Hier Verzeichnis und Datei angeben
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop

End Sub

Vielen Dank im Voraus

Torsten
 

Lesen sie die antworten

#1 Beverly
29/02/2008 - 05:50 | Warnen spam
Hi Torsten,

= Left(Dateiname, Len(Dateiname) - 4)

Bis spàter,
Karin
http://beverly.excelhost.de/


"torsten" wrote:

Hallo zusammen,

mittels des im Folgenden Listing lese ich Dateinamen aus einem Verzeichnis
aus.
Ich hàtte aber gern, das die ausgegebenen Dateinamen ohne die
Dateierweiterung ausgegeben wird.
Wie muss ich den Code erweitern? Kann mir hier geholfen werden?

Dim Dateiname As String, i As Integer
Dateiname = Dir$("c:\*.*") 'Hier Verzeichnis und Datei angeben
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop

End Sub

Vielen Dank im Voraus

Torsten



Ähnliche fragen