[AbdoDabak]

اخي اش هو البرنامج اللي انت عبتستخدموا
هاد الكود شغال جربتو انا اشتغل معي

PHP كود :

 Dim f As New FolderBrowserDialog
        f.SelectedPath = "D:\g\"
        If f.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = f.SelectedPath
        End If
        Dim fi As Integer = TextBox1.Text.IndexOf("D:")
        Dim ti As Integer = TextBox1.Text.IndexOf("\g\") + Len("\g\")
        Dim re As String = TextBox1.Text.Substring(fi, ti - fi)
        TextBox1.Text = TextBox1.Text.Replace(re, String.Empty)