نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

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

  1. #1

    آخرین بازدید
    2016/10/06
    تاریخ عضویت
    September 2016
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

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

  2.  

  3. #2

    آخرین بازدید
    2016/10/06
    تاریخ عضویت
    September 2016
    نوشته ها
    3
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

  4. #3


    آخرین بازدید
    2017/02/15
    تاریخ عضویت
    June 2015
    نوشته ها
    34
    امتیاز
    13
    سپاس
    0
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

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

  5. #4


    آخرین بازدید
    2023/08/17
    تاریخ عضویت
    March 2015
    محل سکونت
    آمل
    نوشته ها
    3,343
    امتیاز
    11575
    سپاس
    1,885
    سپاس شده
    8,165 در 3,011 پست
    تعیین سطح نشده است

    با سلام

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

    کد PHP:
    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 
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط iranweld : 2016/11/26 در ساعت 10:29

  6. سپاس ها (1)


  7. #5


    آخرین بازدید
    2017/02/15
    تاریخ عضویت
    June 2015
    نوشته ها
    34
    امتیاز
    13
    سپاس
    0
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. [حل شده] ساخت یک پایگاه داده برای فایل های کامپیوتری
    توسط taher1 در انجمن سوالات اكسس - Access Questions
    پاسخ ها: 0
    آخرين نوشته: 2016/09/29, 23:16
  2. پرسش امکان اجرای برنامه اکسل در کامپیوترهای مشحص
    توسط Arya_Love60 در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/09/25, 15:02
  3. [حل شده] خاموشی کامپیوتر
    توسط sunstar در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 4
    آخرين نوشته: 2016/04/18, 22:39
  4. اجرای برنامه vba در کامپیوتر دیگر
    توسط mmazad در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 3
    آخرين نوشته: 2016/04/06, 09:59
  5. [حل شده] وارد کردن یک فایل اکسل از اینترنت در فایل اکسل کامپیوتر
    توسط amin.t در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 4
    آخرين نوشته: 2016/03/29, 20:52

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

ایجاد پایگاه داده با اکسس و حل مساله

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد