|
VB 4/6- und VBA-Forum - Beitragsübersicht - |
|
Von |
VBFUNNY |
E-Mail |
eyidilli@gmail.com |
Datum |
20. September 2021 um 23:22:58 |
Frage |
Hallo ihr VB6'ler
Ich bin öfters in der Türkei und habe daher folgendes Problem. Manche MP3 Dateien mit den Türkischen Sonderbuchstaben wie "ş" mit einem Strich nach unten oder "Ç" also ein C mit einem Strich nach unten kann ich über VB6 mit dem Windows Mediaplayer nicht öffnen.
Ich versuchte dies mit dem folgenden Code die Dateinamen zu ändern, aber auch das schlägt leider fehl. Der Code funktioniert, wenn folgende Datei "A Mustafa Tas.mp3" in "B Mustafa Tas.mp3" ändern will, aber wenn ich folgende Datei mit einem Sonderzeichen "A Mustafa Taş" in "A Mustafa Tas.mp3" ändern will geht es nicht. Im zweiten Fall ist dieses "ş" mit dem Strich nach unten.Dim fso, Ordner, Von, Nach, file, a, Wscript Set Wscript = CreateObject("Wscript.Shell") Ordner = Dir1.Path 'InputBox("Bitte Pad eingeben!") Von = cboDegistir.Text 'InputBox("Bitte Suchzeichen eigeben!", , "_") Nach = txtDegistir.Text 'InputBox("Bitte Ersetzungszeichen eingeben!", , " ") Set fso = CreateObject("Scripting.FileSystemObject") For Each file In fso.GetFolder(Ordner).Files a = Replace(file.Name, "ş", "s") ' Sonderzeichen mit unterstich "ş" In "s" erzetzen 'Wscript.Echo "Benenne: " & file.Name & "um nach : " & a 'MsgBox file.Name fso.MoveFile Dir1.Path & "\" & file.Name, Dir1.Path & "\" & a Next was mache ich falsch, wo liegt mein Irtum ?
Danke an euch im Vorraus |
|
[ Antwort schreiben | Zurück zum VB 4/6- und VBA-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|