✔ CommonDialog frage...

[andy1337]

Hallo ihr ^^,

weiß einer von euch wie ich den Code schreiben muss, um NUR den Dateinamen zu sehen, aber dass die Funktion gleich bleibt?
Oder, dass ich eine 2te TextBox mache und dass man dort dann den Dateinamen sehen kann...

Private Sub cmdBrowse_Click()
Dim strFilter As String
Dim sFile As String
Dim strInputFileName As String
Dim rdy As Integer
rdy = 1

strFilter = ahtAddFilterItem(strFilter, "Mp3-Datein (*.Mp3)", "*.mp3")
strFilter = ahtAddFilterItem(strFilter, "Wave-Datein (*.wav)", "*.wav")
strFilter = ahtAddFilterItem(strFilter, "Sream-Datein (*.pls)", "*.pls")
strInputFileName = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Bitte wähle eine Audio-Datei aus...", _
                Flags:=ahtOFN_HIDEREADONLY)
                txtAttach = strInputFileName
                txtFile = strInputFileName
                If txtAttach = "" Then
                rdy = 0
                End If
                
                If rdy = 1 Then
                txtAttach.Enabled = False
                txtWzeit.Enabled = True
                Command1.Enabled = True
                End If
                
End Sub

Danke schonmal =)

 

[schachmat]

Also erstmal: Die Variable "rdy" wird nicht benötigt und kann durch einfaches umformen der If-Anweisung weggelassen werden.

So... jetzt zu deinem Problem: Du willst aus strInputFileName, welches auch den ganzen Pfad beinhaltet nur den Dateinamen herausfiltern, richtig? Dazu nimmst du dir ein paar Zeichenkettenbearbeitungsfunktionen und schneidest einfach von rechts alles bis zum ersten "\" ab.

 

[Shakie]

Und damit du nicht mal die Suchfuntkion verwenden musst: die Funktionen heißen "Left", "Right", "Mid", "InStr" sowie "InStrRev". Zwei davon dürften genügen.

 

[andy1337]

^^ okayy... Des sagt mir jetzt besonders viel... Könntet ihr mir bitte einen Beispielcode schreiben ?

Danke ^^

 

[DrivenHoliday]

Hi,

Hier der Code:

    Dim tmp as String
    Dim FileName as String
    Dim path as string

    For i = 1 To Len(path)

        tmp = Right(path, i)
    
        If Left(tmp, 1) = "\" Then goto ende
    
        FileName = Mid(tmp, 1, 1) + FileName 

    Next

ende:

 

[andy1337]

Hi,

der code funktioniert irgentwie nicht ... bin ich zu dumm oder is der code irgentwie kaputt?^^

 

[DrivenHoliday]

der code funktioniert irgentwie nicht ... bin ich zu dumm oder is der code irgentwie kaputt?

Nein, ich hab hier mal ein kleines Beispielprogramm, mit Quellcode:

 

[andy1337]

Danke DrivenHoliday,

funktioniert Prima =)