File ausgehend von Rootverzeichnis finden
28.12.2016 23:04:42
Rootverzeichnis
ich versuche gerade, über folgendes Skript einen Dateinamen ausgehend von einem Startverzeichnis zu suchen und den Pfad der gefunden Datei in einem Sheet auszugeben.
Dabei stoße ich auf folgende Probleme:
- Laufzeitfehler 70: Zugriff verweigert
- Die Datei kann sich in einer beliebig tiefen Verzeichnisstruktur befinden. Derzeit loope ich nur durch alle Unterordner ausgehend vom Startverzeichnis. Gibt es eine Möglichkeit, dass auch Unterordner von Unterordner usw. durchlaufen werden?
Sub Test2()
Dim FSO As Object
Dim oFolder As Object
Dim oSubFolder As Object
Dim sFile As String
Dim sPath As String
Dim oSubFile As Object
Dim oSubFiles As Object
Dim lngZ As Long
lngZ = 1
Set FSO = CreateObject("scripting.filesystemobject")
sPath = "C:\Users\Anton\"
sFile = "2013.9 Move D Live @ DISCOVERY.mp3"
Set oFolder = FSO.getfolder(sPath)
Set oFiles = oFolder.Files
If Dir(sPath & sFile) "" Then
Tabelle1.Cells(lngZ, 1).Value = sPath
Else
If oFolder.SubFolders.Count > 0 Then
For Each oSubFolder In oFolder.SubFolders
Set oSubFiles = oSubFolder.Files
For Each oSubFile In oSubFiles
If oSubFile.Name Like sFile Then
Tabelle1.Cells(lngZ, 1).Value = sPath
End If
Next oSubFile
Next oSubFolder
End If
End If
End Sub
Würde mich über Rückmeldung freuen. Schöne Grüße,
Anton