کپی فولدر با محتویات چند فایل

[hamid-nice]

با سلام
از دستور Filecopy که استفاده می کنیم فقط می تونم یک فایل را از جایی از هارد به جای دیگر کپی کنیم ولی نمی تونم یک فولدری (که زیپ هم نیست ) را که دارای فایلهایی در آن است کپی کنم

آیا دستور دیگری لازم است ؟ چگونه میشه این کار را انجام داد ؟
با تشکر

[Abbas Amiri]

با سلام
از دستور Filecopy که استفاده می کنیم فقط می تونم یک فایل را از جایی از هارد به جای دیگر کپی کنیم ولی نمی تونم یک فولدری (که زیپ هم نیست ) را که دارای فایلهایی در آن است کپی کنم

آیا دستور دیگری لازم است ؟ چگونه میشه این کار را انجام داد ؟
با تشکر
اگر از Reference استفاده کنید خیلی ساده است


Sub FolderCopy(SourcePath As String, DestPath As String)
' Add Microsoft Scripting Runtime Reference
Dim fso As New FileSystemObject
fso.CopyFolder SourcePath, DestPath
Set fso = Nothing
End Sub



درغیر اینصورت باید ابتدا یک فولدر با دستور MkDir در مسیر دلخواه ایجاد کنید و سپس با دستور Dir در یک حلقه آدرس تمام فایلهای موجود در فولدر مبدا را بدست آورده و با FileCopy آنها را در فولدر مقصد کپی کنید

[Abbas Amiri]

البته بدون رفرنس هم میشود از دستور فوق استفاده کرد



Sub FolderCopy(SourcePath As String, DestPath As String)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder SourcePath, DestPath
Set fso = Nothing
End Sub

[wolfstander]

سلام
من یک فایل گذاشتم، که توش یه دکمه داره
و میخوام با زدن دکمه، فولدر abc از درایو C بره بشینه تو درایو D
اما چون بلد نبودم، نتونستم انجام بدم
امکانش هست که نمونه رو ببینید؟

و بعنوان سوال دوم
آیا میشه این دکمه رو جوری تغییر داد که پارتیشن یا مسیر رو از کاربر بگیره و فولدر c:\abc رو توش کپی کنه؟
ممنون

[amirzazadeh]

سلام
يك فولدر در درايو e با نام word درست كنيد درهنگام تايپ مسير به اين شكل وارد كنيد مثلا \:c