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)
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
(28-09-19, 10:28 PM)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
Imports System.IO
Public Class Form1
End Class
Imports System.IO
Public Class Form1
End Class
Dim f As New FolderBrowserDialog
f.SelectedPath = Application.StartupPath & "\all"
If f.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = f.SelectedPath
Dim filePath As String = TextBox1.Text
Dim directory As String = Path.GetDirectoryName(filePath)
directory = filePath.Replace(directory, "")
TextBox2.Text = directory.Replace("\", "")
End If
(29-09-19, 01:53 AM)AbdoDabak كتب : [ -> ]اخي عندك برنامج visual basic
لاني البرنامج المرفق هو visual studio
وانا ما عندي ياه
اخي اول شي حط
PHP كود :
Imports System.IO
قبل
PHP كود :
Public Class Form1
End Class
ليصير بهاد الشكل
PHP كود :
Imports System.IO
Public Class Form1
End Class
وضيف في الفورم
TextBox عدد 2
Button عدد 1
واضغط دبل كليك على Button1
وحط الكود
PHP كود :
Dim f As New FolderBrowserDialog
f.SelectedPath = Application.StartupPath & "\all"
If f.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = f.SelectedPath
Dim filePath As String = TextBox1.Text
Dim directory As String = Path.GetDirectoryName(filePath)
directory = filePath.Replace(directory, "")
TextBox2.Text = directory.Replace("\", "")
End If
ان شاء الله رح يشتغل معك