سلام .
با این کد میتونید فایل های داخل یه فولدر ( یا یک درایو ) رو بدست بیارید .
Public Function Get_Files(ByVal Folder As String)
Dim strFiles As String
'-----------------------
Dim LSTBOX As New ListBox
LSTBOX.Size = New Size(400, 400)
Me.Controls.Add(LSTBOX)
'-----------------------
If Directory.Exists(Folder) = False Then
MessageBox.Show("Invalid This Folder : " & Folder, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
For Each strFiles In System.IO.Directory.GetFiles(Folder)
LSTBOX.Items.Add(strFiles)
Next
End If
End Function
پاسخ با نقل قول
