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(msoFileDialogFolderPicker)


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 نمیکنه...