大家看看(答出来在加分)

Question

如果我要提取局域网中一台机子中的一个文件(*.mp3)也要提取本机的文件(*.mp3),如何在textbox中,显示出来的路径都是本地的呢??如:
//server/d/user/01.mp3 如何转换成:d:/user/01.mp3呢??,请高手回答!!!

Answer 1

还有如何textbox中显示"user",在另一个textbox中显示"01"呢?

Answer 2

Dim Str As String    Str = "//server/d/user/01.mp3"
    
    strtemp = Right(Str, Len(Str) - InStr(1, Right(Str, Len(Str) - 2), "/") - 2)
    MsgBox Left(strtemp, 1) & ":" & Right(strtemp, Len(strtemp) - 1)

Answer 3

Private Sub Command1_Click()
    Dim Str As String
    Dim strTemp As String
    Dim StrSult As String    Str = "//server/d/user/01.mp3"
    
    strTemp = Right(Str, Len(Str) - InStr(1, Right(Str, Len(Str) - 2), "/") - 2)
    
    StrSult = Left(strTemp, 1) & ":" & Right(strTemp, Len(strTemp) - 1)
    Text1.Text = Mid(StrSult, InStr(1, StrSult, "/") + 1, InStrRev(StrSult, "/", -1) - InStr(1, StrSult, "/") - 1)
    Text2.Text = Right(StrSult, Len(StrSult) - InStrRev(StrSult, "/", -1))
    
End Sub