Es geht um eine "Suchen+umbennen" Geschichte mit VBA 6.5.
Folgendes:
Ich möchte nur in einem bestimmten Verzeichniss nach einer Datei mit Endung *.xlsx suchen.
Diese Datei soll sofort genommen und die Dateiendung geändert werden.
Ich habs geschafft die Datei zu suchen, jedoch noch nicht sie umzubennen.
Dim cFile As String
cFile = Dir("G:\Daten\BUCHHALT\G93\UBS\2010\*.xlsx")
Do While cFile ""
Debug.Print cFile
cFile = Dir
Loop
Wäre sehr schön wenn ihr mir helfen könnt.
Freundliche Grüsse Luca