PDA

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


محمد رضا بهبودی
سه شنبه 23 بهمن 1397, 11:35 صبح
با سلام و احترام خدمت کلیه اساتید محترم
من می خواهم در یک فرم دکمه ای قرار دهم که با کلیک آن یک کپی از فایل اکسس که در ان کار می کنم در مسیر برنامه اصلی ایجاد شود . لطفا در صورت امکان راهنمائی بفرمائید . ممنون
linktaz
چهارشنبه 24 بهمن 1397, 09:15 صبح
با سلام و احترام خدمت کلیه اساتید محترم
من می خواهم در یک فرم دکمه ای قرار دهم که با کلیک آن یک کپی از فایل اکسس که در ان کار می کنم در مسیر برنامه اصلی ایجاد شود . لطفا در صورت امکان راهنمائی بفرمائید . ممنون
سلام
کافی است در قسمت سرچ backup رو نمایید.کلی نمونه هس
محمد رضا بهبودی
شنبه 27 بهمن 1397, 07:36 صبح
با سلام و احترام
ممنون از جنابعالی در خصوص پاسخ به سوال من
فقط لطفا اگر امکان دارد کد VBA که برای کپی کردن فایل لازم است را اعلام فرمائید. ممنون
amirzazadeh
یک شنبه 28 بهمن 1397, 19:32 عصر
از اين كد استفاده كنيد:

Dim sDest As String
Dim sSource As String

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

FileCopy sSource, sDest
محمد رضا بهبودی
دوشنبه 29 بهمن 1397, 09:09 صبح
با سلام و احترام
ممنون از چنابعالی که پاسخ سوال من را ارائه نموده اید. ولی مشکلی که با کد فوق هست اینه که چون من می خواهم از داخل همان فایل یک کپی از فایل بگیرم با کد بالا به من اجازه نمی دهد و پیعام خطا نمایش می دهد. لطفا راهنمائی بفرمایید . ممنون
محمد رضا بهبودی
سه شنبه 30 بهمن 1397, 17:12 عصر
با سلام و احترام
اساتید محترم لطفاً راهنمایی فرمایید . ممنون
Mehr@ban
چهارشنبه 01 اسفند 1397, 10:39 صبح
با سلام و احترام
اساتید محترم لطفاً راهنمایی فرمایید . ممنون

سلام

نمونه کدهای خودتون رو قرار بدین تا اصلاح بشه
محمد رضا بهبودی
پنج شنبه 02 اسفند 1397, 06:59 صبح
با سلام و احترام
ممنون از توجه جنابعالی
به پیوست فایلهای مورد نظر به حضورتان ارسال می گردد . دوست گرامی در فایل test زمانی که دکمه روی فرم زده می شود از روی فایل test1 کپی گرفته می شود . ولی من می خواهم از همان فایل test در مسیر مسخص شده کپی گرفته شود . ممنون
محمد رضا بهبودی
یک شنبه 05 اسفند 1397, 07:25 صبح
با سلام
اساتید محترم لطفا راهنمائی فرمائید . ممنون
Mehr@ban
یک شنبه 05 اسفند 1397, 11:50 صبح
به نمونه کدهای زیر دقت کنید:
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

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