|
Guten Tag zusammen,
ich hoffe ihr könnt mir helfen. Habe schon viele Dinge hin und her probiert aber leider hat noch nichts funktioniert.
Versuche momentan mit der Dir Funktion nach Dateien zu suchen in einem Ordner und Unterorder. Die Pfade unter der sich die Ordner befinden werden dann in dem array "strALL" abgespeichert. Dies Funktion auch schon ganz gut, bis auf Umlaute. Sobald Umlaute im Pfad stehen wird in dem Array anstatt der Umlaute immer dieses Zeichen "„" gesetzt z.B.:
C:\Zeichnungen\Gehäuse\DateiName.pdf
C:\Zeichnungen\Geh„use\DateiName.pdf
Habe auch schon mit der Funktion "Call SetLocaleInfo(&H400, &H1004, 1252)" viel rum probiert, um neue Codepage für die Systemstandards fest zulegen. Leider ohne Erfolg.
Folgend einmal mein Code:
Function fncFolderSearch(ByVal strFolder As String, Optional strTMP As String)
Dim strAll() As String
Call SetLocaleInfo(&H400, &H1004, 1252)
strAll = Split(CreateObject("Wscript.Shell").exec("CMD /C Dir /S /B /O-D " & """" & strTMP & strFolder & """" & """").StdOut.ReadAll, vbCrLf)
End Function
INFO:
(strFolder = Suchpfad)
(strTMP = Name der Datei)
Hoffe es ist soweit verständlich :)
|