Titel in TXT schreiben

[CoderX]

Guten Abend,

Also ich wollte einen kleinen Mp3 Player ja egal...jedenfalls möchte ich das der Titel so wie er heißt in einer Textbox ausgegeben wird sowie der Pfad der Datei also wo sie liegt auch...ja schön und gut

Bloß:

Wenn ich den Pfad ausgeben will komm ich nur auf den Laufwerksbuchstaben und bei dem Textfeld Titel kommt nur "0", "1" oder garnichts raus...

Vielleicht könnt ihr mir da ja ein bisschen helfen...

gruß coderX

 

[Orakel]

Hi CoderX

wie und woher holst Du die Informationen über Pfad und Titel? Würde ungemein helfen.

Gruß
Das Orakel

 

[CoderX]

Über das Common Dialog Control

 

[Orakel]

Also irgendwie hast Du doch folgenden Code:

CommonDialog1.ShowOpen
szIrgendwas = CommonDialog1.FileName

Und nun must Du nur noch den Dateinamen aus dem ganzen extrahieren. In etwa so:

    Dim szPath              As String
    Dim szFileName          As String

    CommonDialog1.ShowOpen
    szFileName = CommonDialog1.FileName
    While InStr(szFileName, "\") > 0
        szPath = szPath & Left$(szFileName, InStr(szFileName, "\"))
        szFileName = Mid$(szFileName, InStr(szFileName, "\") + 1)
    Wend
    MsgBox "Path: " & szPath & vbCrLf & "Filename: " & szFileName

Vorsicht: Code not tested

Gruß
Das Orakel

 

[CoderX]

Danke, werde das nachher testen, heute nicht mehr...die müdigkeit treibt...