German Dateipfad zerlegen

[peternmb]

Hallo,

ich habe (wieder einmal) Probleme beim"zerlegen" eines Dateipfades, den ich mit smb.listFiles erhalte.
Der sieht in etwa so aus:

smb://192.168.1.1/Vz1/Vz2/meineDatei.xxx

Ich bräuchte den Pfad und den Dateinamen einzeln um die Datei herunterzuladen.

 

[DonManfred]

Sub Button1_Click
    Dim smb As String = "smb://192.168.1.1/Vz1/Vz2/meineDatei.xxx"
    Log(GetFilename(smb))
    Log(GetPath(smb))
End Sub
Sub GetFilename(fullpath As String) As String
    Return fullpath.SubString(fullpath.LastIndexOf("/") + 1)
End Sub
Sub GetPath(Path As String) As String
    Dim Path1 As String
    If Path = "/" Then
        Return "/"
    End If
    L = Path.LastIndexOf("/")
    If L = Path.Length - 1 Then
        'Strip the last slash
        Path1 = Path.SubString2(0,L)
    Else
        Path1 = Path
    End If
    L = Path.LastIndexOf("/")
    If L = 0 Then
        L = 1
    End If
    Return Path1.SubString2(0,L)
End Sub

Siehe

FileUtil SUBs

SubName: GetFilename Description: Gets the Filename of Image or Page from Path Sub GetFilename(fullpath As String) As String Return fullpath.SubString(fullpath.LastIndexOf("/") + 1) End Sub ' ' Example Log(GetFilename("http://www.domain.tld/SomePage.html")) ' -> SomePage.html Tags...

www.b4x.com

für weitere Möglichkeiten.