28-09-19, 10:28 PM
(آخر تعديل لهذه المشاركة : 28-09-19, 11:18 PM {2} بواسطة asemshahen5.)
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = Application.StartupPath & "\ss"
Dim filePath As String = TextBox1.Text
Dim directory As String = Path.GetDirectoryName(filePath)
directory = filePath.Replace(directory, "")
TextBox2.Text = directory.Replace("\", "")
End Sub
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر