Hallo Olli,
Hier schon mal der Code zum Durchsuchen eines Laufwerks:
Public Function SeekFolders(fldName, drvPath, Optional arrPath As String = "") As String
Dim fso, fld, subfld, entry
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(drvPath)
Set subfld = fld.SubFolders
For Each entry In subfld
If entry.Name = fldName Then _
arrPath = IIf(arrPath = "", entry.Path, arrPath & Chr(10) & entry.Path)
SeekFolders fldName, entry.Path, arrPath
Next
SeekFolders = arrPath
End Function
Public Sub FindFolders()
arrPath = SeekFolders("Daten", "D:\")
MsgBox arrPath
End Sub
Mir ist aber nicht ganz klar was mit den gefundenen Ordnern geschehen soll,
- soll der Ordner gelöscht und der Quellordner in das Verzeichnis kopiert werden ?
- oder soll der Inhalt des Ordners überschrieben werden ?
- oder soll statt des Ordners eine Verknüpfung auf den Quellordner erstellt werden ?
Grüße Lutz
|