[AbdoDabak]

PHP كود :

Dim f As New FolderBrowserDialog
        f.SelectedPath = "D:\ss\"
        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("\ss\") + Len("\ss\")
        Dim re As String = TextBox1.Text.Substring(fi, ti - fi)
        TextBox1.Text = TextBox1.Text.Replace(re, String.Empty) 


---

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