Kannst Du mir vielleicht sagen, wie ich nach einer Datei suchen kann in meinem Ordner?
Das findest Du im Quelcode Example 3 in Zeile 10.
Sub GetFileNames()
Dim MyFSO As FileSystemObject
Dim MyFile As File
Dim MyFolder As Folder
Set MyFSO = New Scripting.FileSystemObject
Set MyFolder = MyFSO.GetFolder("C:\Users\sumit\Desktop\Test")
For Each MyFile In MyFolder.Files
Debug.Print MyFile.Name
Next MyFile
End Sub
Die Debug.Print-Anweisung ersetzt Du nun mit einer IF-Abfrage.
Es werden alle Dateien im angegebenen Ordner MyFolder durchsucht bzw in die Variable MyFile referenziert.
Jetzt kannst Du mit der IF-Abfrage auf den Dateinamen prüfen.
Wenn Datei gefunden, wird der Code innerhalb der IF-Abfrage ausgeführt.
If MyFile.Name = "gesuchte Datei" Then
'*** Datei kopieren, umbenennen usw usf
End If
|