Name alterName as neuerName
Reinhard
im folgenden Code meckert der Debugger schon bei der Eingabe von
name .FoundFiles(N) as pfad & mid(Dat,4)
Das "as" wird blau markiert und die Fehlermeldung ist
Fehler beim Kompilieren, Anweisungsende erwartet.
Was mache ich falsch?
Danke ^ Gruß
Reinhard
Option Explicit
Sub NeuName()
Dim Fs As FileSearch, N As Long, Pfad As String, Dat As String
Set Fs = Application.FileSearch
With Fs
.LookIn = "K:\"
.SearchSubFolders = False
.Filename = "*"
If .Execute() > 0 Then
For N = 1 To .FoundFiles.Count
Pfad = Left(.FoundFiles(N), InStrRev(.FoundFiles(N), "\"))
Dat = Replace(.FoundFiles(N), Pfad, "")
name .FoundFiles(N) as pfad & mid(Dat,4)
'MsgBox .FoundFiles(N) & Chr(10) & Pfad & Mid(Dat, 4)
Next N
End If
End With
End Sub