سوال چطوری میشه یه پوشه رو با محتویاتش رو با وی بی کپی کرد

با سلام خدمت دوستان

میخواستم یکی راهنماییم کنه که چه جوری میتونم یه فایل رو با وی بی کپی کنم به یه درایو دیگه

شاید این سوال تکراری به نظر بیاد اما من پست ها رو خوندم وفقط مطلب در مورد کپی کردن فایل پیدا کردم نه پوشه


ممنون می شم اگه راهنمایی کنید












------------------------

سلام.
این جام که باز گفتی فایل نه پوشه.
ریفرنس scripting runtime رو اضافه کن. بعد از کد زیر استفاده کن.

کد:

---

Private Sub Command1_Click()
Dim fsoCopy As New Scripting.FileSystemObject
    fsoCopy.CopyFolder "C:\a", "E:\a"
End Sub

---

سلام دوست گرام

فرض كنيد ميخوام فونتي يا فايلي ويا پوشه اي رو از روي سي دي كه برنامه ام هست روي يكي از فولدرهاي ويندوز مثلا Fonts كپي كنم چه تغييري در نحوه آدرس دهي بايد بدهم . متاسفانه صفر كيلومترم ، ساده لطف بفرماييد

کد:

---

Private Sub Command1_Click()
Dim fsoCopy As New Scripting.FileSystemObject
fsoCopy.CopyFolder Source, Destination
End Sub

---

اقا romina من وقتی میخواهم از این کد استفاده کنم از قسمتScripting ایراد میگیره من قبلاً هم یک برنامه داشتم که از او ایراد می گرفت مشکل از کجاست

نقل قول:

---

نوشته شده توسط OmId68 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

اقا romina من وقتی میخواهم از این کد استفاده کنم از قسمتScripting ایراد میگیره من قبلاً هم یک برنامه داشتم که از او ایراد می گرفت مشکل از کجاست

---

باید از منوی Project و زیر منوی References گزینه Microsoft Scripting Runtime رو انتخاب کنی

دوست گرامي Romina ي عزيز

دستورالعمل كلي رو مي دونم . منظور من نحوه نوشتن آدرس مبدا و مقصد بود : يعني وقتي نمي دونم ويندوز سيستم مقصد روي كدوم درايو نصب است چگونه آدرس را بنويسم كه پوشه هاي ويندوز لحاظ شود

کد:

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim Buffer As String
Buffer = String(200, 0)
GetWindowsDirectory Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
Text1.Text = Buffer
End Sub

---

از اينكه گيج ترم كرديد تشكر مي كنم
Private Sub Command1_Click()
Dim fsoCopy As New Scripting.FileSystemObject
fsoCopy.CopyFolder Source, Destination
End Sub

منظورم اين بود كه Destination در اين فورمول با چه string ي جايگزين شود تا در سيستم مقصد يكي از پوشه هاي ويندوز منظور شود مثلا system32/.. يا fonts/.. كه از پوشه هاي ويندوزند

بازم متشكرم

دوست عزیز

شما اول باید بدونی که ویندوز مقصد روی چه پارتیشنی نصب شده است.برای اینکار باید از کد زیر استفاده کنی :

کد:

---

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim Buffer As String
Buffer = String(200, 0)
GetWindowsDirectory Buffer, Len(Buffer)
Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
Text1.Text = Buffer
End Sub

---

در کد بالا متغییر Buffer مسیر نصب ویندوز رو بهت میده و بعدش می تونی مسیر مقصد موردنظرت را جایگزین کنی مثلا :

کد:

---

Destination = Buffer & "\Fonts"
Destination = Buffer & "\System32"

---

دوست عزيز
واقعا تشكر مي كنم لطف كرديد حالا امتحانش مي كنم