PDA

View Full Version : اد کردن به کومبو باکس



Overhere
یک شنبه 13 مرداد 1392, 19:21 عصر
سلام...
من میخوام که کومبو باکس اسم هرچی فایل در فولدر letters هستش رو اد کنه چه کدی لازم داره
برای اینکه منظورمو بهتر بفهمین:
ComboBox3.Items.Add(FileIO.FileSystem.GetName(My.A pplication.Info.DirectoryPath & "\Letters\test"))
ولی این فقط اسم test رو اد میکنه ولی من میخوام هر چی که توی letters هستش رو اد کنه....
ممنون میشم جواب بدین.

Overhere
یک شنبه 13 مرداد 1392, 20:10 عصر
واقعا این سوال اینقدر سخته؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/ کسی نیست جواب بده؟؟؟؟؟؟؟؟؟؟؟

Overhere
یک شنبه 13 مرداد 1392, 20:56 عصر
واقعا این سوال اینقدر سخته؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟/ کسی نیست جواب بده؟؟؟؟؟؟؟؟؟؟؟

xxnagin
یک شنبه 13 مرداد 1392, 23:48 عصر
سلام
اولا کدت کلا اشتباهه در این قسمت FileIO.FileSystem.GetName که فقط نام فایل رو بر میگردونه
دوما برای بیشتر از چند تا فایل یا پوشه از حلقه استفاده میشه
سوم کد زیر برای شما
خوب شما اگه میخوای فایل های پوشه Letters رو add کنی اون test\ دیگه چیه

Dim f As String = My.Application.Info.DirectoryPath & "\Letters
Dim dir As New IO.DirectoryInfo(f)
For Each s In dir.GetFiles()
ComboBox1.Items.Add(s.FullName)
Next

neverlieme
دوشنبه 14 مرداد 1392, 07:00 صبح
Imports System.IO
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim AllDr As New DirectoryInfo("F:\letters\")
For Each item In AllDr.GetّFiles
ComboBox1.items.add(item.Name)
Next
End Sub
End Class