30-12-24, 12:34 PM
وعليكم السلام ورحمة الله وبركاته
كود :
Private Sub getfiles()
Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
'يمكنك تغيير المسار حسب ما تريد
files = My.Computer.FileSystem.GetFiles("C:\Users\data\Documents", FileIO.SearchOption.SearchTopLevelOnly, "*.mdf*")
'لجلب الملفات من مسار مجلد البرنامج
' files = My.Computer.FileSystem.GetFiles(Application.StartupPath & "\Data", FileIO.SearchOption.SearchTopLevelOnly, "*.mdf*")
Dim i As Integer
For i = 0 To files.Count - 1
ComboBox1.Items.Add(IO.Path.GetFileName(files.Item(i)))
Next
End Subلا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي