Sub Alsaqr_GetFiles()
'programming by Eslam Abdullah
Dim Folder As Object, File As Object
Dim DFolder As FileDialog, FPath$, rw%, cl%
'حدد هنا رقم بداية الصف ورقم بداية العمود
rw = 1: cl = 1
Set DFolder = Application.FileDialog(msoFileDialogFolderPicker)
If DFolder.Show = -1 Then
FPath = DFolder.SelectedItems(1)
Set DFolder = Nothing
Else: Exit Sub
End If
Set Folder = CreateObject("Scripting.FileSystemObject").GetFolder(FPath)
If Folder.Files.Count = 0 Then MsgBox "المجلد لا يحتوى على ملفات يمكن ادراجها", 64, "أكاديمية الصقر للتدريب": Exit Sub
For Each File In Folder.Files
ActiveSheet.Hyperlinks.Add Cells(rw, cl), File.path, , , File.Name
rw = rw + 1
Next File
MsgBox "تم بحمد الله تعالى", 64, "أكاديمية الصقر للتدريب"
End Sub