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 ]
Antworten
VB6: Sonderzeichen aus Dateinamen entfernen bzw. ersetzen - VBFUNNY 20. September 2021 um 23:22:58

Ihre Antwort
(Nick-)Name   Wichtige Informationen zur Namensangabe
E-Mail (opt.)  Wichtige Informationen zur Angabe einer eMail-Adresse
Thema   Wichtige Informationen zur Angabe eines Themas
Betrifft (IDE)  Visual Basic 6 (*.exe)
Ihre Antwort
Smilies
Mehr...
FettKursivUnterstrichen   Übersicht der Tipp-KürzelÜbersicht der Projekt-KürzelÜbersicht der Bücher-Kürzel 
Homepage
Titel
Root-Smilies              
             
             
[ Zurück zum VB 4/6- und VBA-Forum | Forum-Archiv | Forum-Hilfe | Chat ]

Zum Seitenanfang

Startseite | VB-/VBA-Tipps | Projekte | Tutorials | API-Referenz | Komponenten | Bücherecke | Gewinnspiele | VB.Net | .Net-Forum | DirectX | DirectX-Forum | Chat | Ausschreibungen | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 13. Dezember 2015