ساخت یک پایگاه داده برای فایل های کامپیوتری (مساله همچنان حل نشده)

[taher1]

با سلام و درود
قصد دارم برای نظم و سامان دادن و همچنین دسترسی سریع تر به فایل هایی که بر روی هارد دیسک خود دارم یک پایگاه داده طراحی کنم
لطفا راهنمایی بفرمایید این کار چگونه قابل انجام است
موضوع مشابهی ایجاد کرده بودم که به اشتباه تیک "حل شد" را زدم
این مساله هنوز حل نشده است
با سپاس

[taher1]

کسی نبود جواب بده؟؟؟

[esiexcel]

سلام اتفاقا من هم دنبال همین میگردم. اگه کسی میتونه کمک کنه

[iranweld]

با سلام

در فایل پیوست فایلها در مسیر انتخاب شده ، لیست میگردد.
بعد از اجرای ماکرو ،ابتدا از پنچره باز شده مسیر فولدر مورد نظر را انتخاب کنید

Sub Example1()

Dim objFSO As Object

Dim objFolder As Object

Dim objFile As Object

Dim i As Integer

Dim fDialog

Set fDialog = Application.FileDialog(msoFileDialogFolderPicker)
 
'Optional: FileDialog properties'

fDialog.Title = "Select Data folder"

fDialog.InitialFileName = "D:\"
 
If fDialog.Show = -1 Then

  xx = fDialog.SelectedItems(1)

End If


'Create an instance of the FileSystemObject'

Set objFSO = CreateObject("Scripting.FileSystemObject")

'Get the folder object'

Set objFolder = objFSO.GetFolder(xx)

i = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

'loops through each file in the directory and prints their names and path'

For Each objFile In objFolder.Files

    'print file name

    Cells(i + 1, 1) = objFile.Name

    'print file path'

    Cells(i + 1, 2) = Left(objFile.Path, Len(objFile.Path) - Len(objFile.Name))

    i = i + 1
Next objFile
End Sub 

[esiexcel]

سلام دوست عزیز.
ممنون از فایلتون. فقط مشکلی که هست این فایل خیلی محدود عمل میکنه. فکر کنم واسه اینکه بتونیم به عنوان پایگاه داده از این فایل استفاده کنیم لازم باشه که
1-زیرفولدرها هم لیست بشن و عناصر داخل اونها هم به همین ترتیب.
2-یکسری مشخصات اضافی هم از فایل ها بشه لیست کرد مثلا نوع فایل ها و حجم اونها
با توجه به اینکه به نظر میرسه شما اشراف خوبی نسبت به vba دارین، میخاستم یه پیشنهاد خدمتتون بدم.
یک نرم افزار هست به اسم directory list & print(pro) اگه امکان داره یه نگا بهش بندازین ببینین میشه کدی در اکسل نوشت که قابلیت های این نرم افزار رو داشته باشه