Browse در مسیر مشخص برای open نمودن فایل

[شاپرک]

لطفا منو راهنمایی کنید . :sorry:

من یه Button دارم که با انتخاب اون میخوام folder ای که داخل اون فایل های مختلفی وجود داره (عکس و Excel و wordو.....) Browse کنه تا بتونم بازشون کنم.

[شاپرک]

[hrh]

ابتدا گزینه Microsoft Office 11.0 Object Library یا Microsoft Office 10.0 Object Library را در Refrence پروژه علامت گذاشته و نمونه کدهای زیر را به برنامه اضافه نمائید.

    Dim fds As FileDialog

    

       Set fds = Application.FileDialog(msoFileDialogFolderPick  er)

    

           

    strDefaultExportFolder = CurrentProject.path & "\Export\"

    

    With fds

    

        .AllowMultiSelect = False

        .ButtonName = "Select"

        .InitialFileName = strDefaultExportFolder

        .Title = "انتخاب پوشه مقصد"

            

        If .Show = -1 Then

        

            For Each vrtSelectedItem In .SelectedItems



               strDesFolder = vrtSelectedItem



            Next vrtSelectedItem

            

            txbExportPath = strDesFolder & "\" & strExportDBName

            

        End If

    

    End With

    

[شاپرک]

اما اینجوری فقط folder هارو نشون میده subfolder ها رو نشون نمیده تا open کنم ؟؟؟؟؟؟؟؟؟ :(

[داود شهبازی]

توی همین بخش اکه جستجو کنی نمونه های برای این کار پیدا میکنی

[hrh]

یعنی چی

منظورتون از اینکه Folder ها رو نشون می ده و Subfolder ها رو نشون نمی ده رو نمی فهمم

[شاپرک]

من یه Button دارم که با انتخاب اون میخوام folder ای که داخل اون فایل های مختلفی وجود داره (عکس و Excel و wordو.....) Browse کنه تا بتونم بازشون کنم.

فایل های

(عکس و Excel و wordو.....)

رو نشون نمیده تا بخوام open کنم.

[شاپرک]

توی همین بخش اکه جستجو کنی نمونه های برای این کار پیدا میکنی

میشه یه نمونه شما لینک بدید من ببینم ؟ :confy2:

[hrh]

این تغییر را در کد بالا اعمال کن

Set fds = Application.FileDialog(msoFileDialogOpen)

[شاپرک]

آخه چه فایده !!!!!!؟؟؟؟
این فقط فایل ها رو نمایش میده وقتی مثلا یه فایل word رو انتخاب می کنم اصلا open نمیکنه... :(

[داود شهبازی]

توی همین بخش اکه جستجو کنی نمونه های برای این کار پیدا میکنی

اینهم یک نمونه که با برنامه ای که در همین بخش برای ذخیره تصویر بود تکمیل شده

[شاپرک]

آخه چه فایده !!!!!!؟؟؟؟
این فقط فایل ها رو نمایش میده وقتی مثلا یه فایل word رو انتخاب می کنم اصلا open نمیکنه...