AW: Umlaute in Datei ändern?
Thomas
Hallo Hajo_Zi!
Danke für die rasche Antwort. Ich habe deinen Code verwendet doch leider erhalte ich einen Laufzeitfehler: 438 (Objekt unterstützt die Eigenschaft oder Methode nicht).
hast du eine Idee woran das liegen kann?
Vielen Dank nochmal,
TH
Option Explicit
Sub List_Files_in_all_folder()
' einschl unterordner komplett mit Phad
Dim I As Long
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = "C:\Test\"
' suchen auch in Unterverzeichnis
.SearchSubFolders = True
.Filename = "*.xls"
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
If InStr(.FoundFiles.Name, "ä") > 0 Then
FileCopy .FoundFiles.Name, Replace(.FoundFiles.Name, "ä", "ae")
Kill .FoundFiles.Name
End If
If InStr(.FoundFiles.Name, "ö") > 0 Then
FileCopy .FoundFiles.Name, Replace(.FoundFiles.Name, "ö", "oe")
Kill .FoundFiles.Name
End If
If InStr(.FoundFiles.Name, "ü") > 0 Then
FileCopy .FoundFiles.Name, Replace(.FoundFiles.Name, "ü", "ue")
Kill .FoundFiles.Name
End If
If InStr(.FoundFiles.Name, "Ä") > 0 Then
FileCopy .FoundFiles.Name, Replace(.FoundFiles.Name, "Ä", "AE")
Kill .FoundFiles.Name
End If
If InStr(.FoundFiles.Name, "Ö") > 0 Then
FileCopy .FoundFiles.Name, Replace(.FoundFiles.Name, "Ö", "OE")
Kill .FoundFiles.Name
End If
If InStr(.FoundFiles.Name, "Ü") > 0 Then
FileCopy .FoundFiles.Name, Replace(.FoundFiles.Name, "Ü", "UE")
Kill .FoundFiles.Name
End If
Next I
End If
End With
Application.ScreenUpdating = True
End Sub