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