[amgad525]

PHP كود :

Dim o As New OpenFileDialog
If o.ShowDialog = vbOK Then

    Dim fd() As String = o.FileName.Split("\")

    For i = 0 To fd.Length - 1

        Dim arr(i) As String
        Array.Copy(fd, arr, i + 1)

        Dim s As String = Join(arr, "\")
        MsgBox(s)

    Next

End If