خطا درهنگام کپی

[mortezamhd]

سلام

من وقتی میخوام از بانکم کپی بگیرم ارور میده (اصلا یادم نیست چه ارروری میداد) البته این مشکل رو توی سیستم خودم ندارم ولی توی سیستم های دیگه اشکال داره

میشه بگید مشکلش از چیه ؟

اینم کدم :

Imports System.IO
sfd1.Filter = "Microsoft Access Database (*.mdb)|*.mdb"
sfd1.FileName = "Database"
If sfd1.ShowDialog = Windows.Forms.DialogResult.OK Then
File.Copy(path, sfd1.FileName, True)
If File.Exists(sfd1.FileName) Then
MsgBox("عملیات پشتیبان گیری از بانک با موفقیت انجام شد", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.Information, "پشتیبان گیری تمام شد")
Else
MsgBox("عملیات پشتیبان گیری از بانک با مشکل روبه رو شده . لطفا دوباره سعی کنید ", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.Critical, "خطا در پشتیبان گیری")
EndIf
EndIf

[viper2009]

من نمی دون ولی گفتن ERROR مهمه

[mohammadjavad]

سلام

از کد ی که واست نوشتم استفاده کن


Dim f1, f2 As String
With SaveFileDialog1
.Title = "مسیر فایل پشتیبان را انتخاب کنید"
.Filter = "Data Base Backup (*.mdb)|*.mdb"
.FileName = "m2.mdb"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
f1 = System.Windows.Forms.Application.StartupPath + "\m2.mdb"
f2 = .FileName

System.IO.File.Copy(f1, f2, True)
MessageBox.Show("فایل پشتیبان از بانک اطلاعاتی با موفقیت ایجاد شد", "پشتیبان", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)