Einen Dateinamen aus Ordner auslesn
15.06.2016 09:00:59
F
Ich möchte gerne nur einen Dateinamen aus einem Ordner auslesen. Dies soll per VBA erfolgen. Ich habe einen Code gefunden, der allerdings alle Dateien ausliest:
Sub DateinamenAuslesen()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("C:\Users\test")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 4) = fDatei.Name
End If
Next fDatei
End Sub
Nun zu meiner eigentlichen Frage: Kann ich die Ausgabezelle fest definieren?
Hätte gerne die Ausgabe in Zelle L4.
Ich weiss das ich die Schleife rausnehmen muss, bekomme aber die feste Zuweisung nicht hin.
Vielen Dank im Voraus!
Anzeige