Hi,
in MS Office 2003 habe ich im Explorer einen Ordner mit etlichen Dokumenten, deren Dateinamen mit den Zeichen z.B.: XXL beginnen. Ich möchte mit VBA (oder sonstwie) ohne großen Aufwand in den Dateinamen die ersten Zeichen löschen. Wie könnte das funktionieren?
Dank u. Gruß
Wilhelm
in MS Office 2003 habe ich im Explorer einen Ordner mit
etlichen Dokumenten, deren Dateinamen mit den Zeichen z.B.:
XXL beginnen. Ich möchte mit VBA (oder sonstwie) ohne großen
Aufwand in den Dateinamen die ersten Zeichen löschen. Wie
könnte das funktionieren?
Hallo Wilhelm,
passe bei Lookin den Pfad an und bei Searchsubfolders legst du mit false oder true fest ob auch in Unterordnern des Pfades gesucht werden soll.
Wenn die Kommenenden Fenster zeigen daß der Code funktionieren würde, brach den Code ab mit Strg + Untbr.
Lösche die Zeile mit MsgBox und entferne das Hochkomma vor der Zeile davor und starte den Code neu.
In ein Standardmodul:
Option Explicit
Sub NeuName()
Dim Fs As FileSearch, N As Long, Pfad As String, Dat As String
Set Fs = Application.FileSearch
With Fs
.LookIn = "c:\test\"
.SearchSubFolders = False
.Filename = "xxl\*"
If .Execute() \> 0 Then
For N = 1 To .FoundFiles.Count
Pfad = Left(.FoundFiles(N), InStrRev(.FoundFiles(N), "\"))
Dat = Replace(.FoundFiles(N), Pfad, "")
'Name CStr(.FoundFiles(N)) As Pfad & Mid(Dat, 4)
MsgBox "A: " & CStr(.FoundFiles(N)) & Chr(10) & "N: " & Pfad & Mid(Dat, 4)
Next N
End If
End With
End Sub
Gruß
Reinhard
Danke! owT
xxx