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

با سلام و احترام خدمت کلیه اساتید محترم
من می خواهم در یک فرم دکمه ای قرار دهم که با کلیک آن یک کپی از فایل اکسس که در ان کار می کنم در مسیر برنامه اصلی ایجاد شود . لطفا در صورت امکان راهنمائی بفرمائید . ممنون

نقل قول:

---

نوشته شده توسط محمد رضا بهبودی

با سلام و احترام خدمت کلیه اساتید محترم
من می خواهم در یک فرم دکمه ای قرار دهم که با کلیک آن یک کپی از فایل اکسس که در ان کار می کنم در مسیر برنامه اصلی ایجاد شود . لطفا در صورت امکان راهنمائی بفرمائید . ممنون

---

سلام
کافی است در قسمت سرچ backup رو نمایید.کلی نمونه هس

با سلام و احترام
ممنون از جنابعالی در خصوص پاسخ به سوال من
فقط لطفا اگر امکان دارد کد VBA که برای کپی کردن فایل لازم است را اعلام فرمائید. ممنون

از اين كد استفاده كنيد:

Dim sDest As String
Dim sSource As String

sSource = "\\MYSERVER\KOOLSID\MYFILE.MDB"
sDest = "C:\BACKUP\MYFILE.MDB"

FileCopy sSource, sDest

با سلام و احترام
ممنون از چنابعالی که پاسخ سوال من را ارائه نموده اید. ولی مشکلی که با کد فوق هست اینه که چون من می خواهم از داخل همان فایل یک کپی از فایل بگیرم با کد بالا به من اجازه نمی دهد و پیعام خطا نمایش می دهد. لطفا راهنمائی بفرمایید . ممنون

با سلام و احترام
اساتید محترم لطفاً راهنمایی فرمایید . ممنون

نقل قول:

---

نوشته شده توسط محمد رضا بهبودی

با سلام و احترام
اساتید محترم لطفاً راهنمایی فرمایید . ممنون

---

سلام

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

با سلام و احترام
ممنون از توجه جنابعالی
به پیوست فایلهای مورد نظر به حضورتان ارسال می گردد . دوست گرامی در فایل test زمانی که دکمه روی فرم زده می شود از روی فایل test1 کپی گرفته می شود . ولی من می خواهم از همان فایل test در مسیر مسخص شده کپی گرفته شود . ممنون

با سلام
اساتید محترم لطفا راهنمائی فرمائید . ممنون

به نمونه کدهای زیر دقت کنید:

Private Sub btnBrower_Click()

Dim fd As FileDialog

Set fd = Application.FileDialog(msoFileDialogFolderPicker)

fd.AllowMultiSelect = False

fd.Title = "انتخاب مسیر پرونده پشتیبان"

fd.ButtonName = "انتخاب پوشه"



If fd.Show = -1 Then

    Me.txtAddress = fd.SelectedItems(1)

    Me.txtInfo.Caption = "پوشه ذخیره سازی به درستی انتخاب شد"

Else

    Me.txtInfo.Caption = "در انتخاب پوشه مشکلی رخ داده است، مجددا اقدام کنید."

End If



End Sub



Private Sub btnCopy_Click()

If IsNull(Me.txtAddress) Or Me.txtAddress = "" Then

    Me.txtInfo.Caption = "مسیر پوشه ذخیره پرونده پشتیبان مشخص نشده است."

Else

    Dim CDB As String

    Dim NDB As String

    NDB = Left(CurrentProject.Name, InStrRev(CurrentProject.Name, ".") - 1)

    CDB = CurrentProject.FullName

    MsgBox Me.txtAddress & "" & NDB & " " & Shamsi & Replace(Time, ":", "") & "." & Right(CurrentProject.Name, InStrRev(CurrentProject.Name, "."))

    FileCopy CDB, Me.txtAddress & "" & NDB & " " & Shamsi & Replace(Time, ":", "") & "." & Right(CurrentProject.Name, InStrRev(CurrentProject.Name, "."))

End If

End Sub

و اما خطایی که دریافت میشه به دلیل این هست که فایل مورد نظر که همین برنامه باشه، باز هست و در حاله اجرا و پردازشه