PDA

View Full Version : نام Directory در textbox مثل FolderBrowserDialog.SelectedPath



xxnagin
شنبه 01 اسفند 1388, 22:52 عصر
سلام
من میخوام وقتی با open file dialog فایل add میشه نام Directory در text1 نوشته بشه
مثل FolderBrowserDialog.SelectedPath
وقتی رو listview کلیک میکنی
TextBox2.Text = FolderBrowserDialog.SelectedPath & "\" & item.Text بشه
فقط تو text1 مثل text2 بشه مانند این فایل
در واقع به هر دو را لازم دارم نه اینکه یکیش باشه اونم FolderBrowserDialog.SelectedPath

Alirezanet
شنبه 01 اسفند 1388, 23:26 عصر
خوب من خیلی تلاش کردم ولی منظورتون رو نفهمیدم که چی میخواین !!!!! یه بار متنی که نوشتین رو مطالعه کنین شاید من .... !
سوالتون رو دوباره مطرح کنین در خدمتم !

xxnagin
یک شنبه 02 اسفند 1388, 07:38 صبح
شما این فایل را دانلود کنید منظورم را متوجه میشید
در اصل من یه چیزی شبیه FolderBrowserDialog.SelectedPath میخوام در open file dialog
در واقع FolderBrowserDialog مشکلی نداره از رو این درست کنید
TextBox2.Text = FolderBrowserDialog.SelectedPath & "\" & item.Text
دکممه add dir سالمه شما یکبار با این فایل add کنید و روی ایتم های listview کلیک کنید

Alirezanet
یک شنبه 02 اسفند 1388, 13:43 عصر
من یه پیشنهاد دارم شما کد نده کدهاتون توی نمونه برنامت هست یه لطفی کن بگو مثلا چجوری میشه این آدرس رو فقط نام فایل رو از توش بدست آورد یا یه همچین چیزی !
C:\Users\Alireza.Alireza-PC\Desktop\Backup archiver.lnk

اینجا بچه ها همه به هم کمک میکنن فکر میکنم کسی دقیق متوجه نشده که تا الان کمک نکرده ... من هم قصدم همینه ولی خداییش 15 دقیقست نشستم منظورتو نفهمیدم :اشتباه:

در کل سوالتون از قالب برنامت جدا کن چون برنامه شما نمیدونم قراره چیو نشون بده !
در ضمن الان دیدم که دکمه addfile هیچ کتری انجام نمیده میخوای کاری کنی که این هم عمل کنه !؟

xxnagin
یک شنبه 02 اسفند 1388, 13:59 عصر
شما تو برنامم ببین
با adddir یه فولدر add کنید قبل از اینکه به listview دست بزنید نگاه کنید تو textbox2 چی
میبنی = TextBox2.Text = نام دایرکتوری & "\" & نام فایل
نام دایرکتوری= C:\Users\Alireza.Alireza-PC\Desktop
"\" = \
بعد روی item های listview کلیک کنید دوباره یه نگاه به textbox2
Backup archiver.lnk = یکی از item های listview یا همون item.Text

Alirezanet
یک شنبه 02 اسفند 1388, 14:17 عصر
C:\Users\Alireza.Alireza-PC\Desktop
بعد از لود کردن دسکتاپ اینو نشون میده و وقتی روی Itemi کلیک میکنم اینو
C:\Users\Alireza.Alireza-PC\Desktop\add file.zip
که طبق کدهایی که نوشتین کاملا درست کار میکنه ...

فکر میکنم مشکلتون Text1 باشه من کاملش کردم که عین نمایش دایرکتوری فایل ها رو هم نشون بده !


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
End If
End Sub

این هم نشون دادن آدرس فایل توی textbox1 :متفکر:
این کد دکمه openfile شماست

Alirezanet
یک شنبه 02 اسفند 1388, 14:24 عصر
یا اینو ببین :
کل آدرس رو به غیر از اون یه فایل لیست میکنه (طبق کد خودتون )
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
Dim a As String = System.IO.Path.GetDirectoryName(ofd.FileName)
Dim STF As New IO.DirectoryInfo(a)
Dim F As IO.FileInfo
'lists each folder inside top folder
For Each F In STF.GetFiles()
ListView1.Items.Add(F.Name).SubItems.Add(F.FullNam e)
Next
End If
End Sub

Alirezanet
یک شنبه 02 اسفند 1388, 14:34 عصر
اینم نمونه سوم که فقط آیتم های انتخابیتون لیست شه ...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ofd.Multiselect = True
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
TextBox1.Text = ofd.FileName
For Each f In ofd.FileNames
Dim a As String = System.IO.Path.GetDirectoryName(f)
ListView1.Items.Add(a).SubItems.Add(f)
Next
End If
End Sub