مشكل در كپي كردن فايل از DataDirectory

[mostafa194]

با سلام و خسته نباشيد خدمت عزيزان
من از كد زير براي بك آپ گيري استفاده كردم

FolderBrowserDialog1.ShowDialog()
If FolderBrowserDialog1.SelectedPath.ToString <> "" Then
Dim wherewego As String = FolderBrowserDialog1.SelectedPath.ToString
FileCopy(My.Application.Deployment.DataDirectory & "\database.mdb", wherewego & "\database.mdb")
MsgBox("Backup Complete!")
Me.Close()
Else
MsgBox("Enter a destination!")

و اين خطا رو نمايش ميده Application identity is not set
البته از |DataDirectory| كه استفاده مي كنم اين خطا رو نمايش ميده Illegal characters in path
قبلا از توجهتون ممنونم

[Alirezanet]

احتیاجی به استفاده از DataDirectoty نیست .... اگه شما همون آدرس برنامرو بخواین میتونید به این سادگی بهش برسید ! :

FolderBrowserDialog1.ShowDialog()
If FolderBrowserDialog1.SelectedPath.ToString <> "" Then
Dim wherewego As String = FolderBrowserDialog1.SelectedPath.ToString
FileCopy( "database.mdb", wherewego & "\database.mdb")
MsgBox("Backup Complete!")
Me.Close()
Else
MsgBox("Enter a destination!")

البته یک مواقعی در ویندوز 7 این مشکل پیش میاد که دسترسی admin میخواد برای کار رو هر فایلی !! (Run as administrator)

[mostafa194]

با تشكر از Alirezanet فكر نمي كردم به همين سادگي مشكلش حل بشه!
به هر حال خيلي ممنونم

[mostafa194]

با سلام
اين طور كه عليرضا گفت تونستم از پوشه نرم افزار ديتابيس رو كپي كنم ولي براي بارگيري ديتابيس يعني كپي كردن فايل تو پوشه نرم افزار مشكل وجود داره،
لطفا كمك كنيد....

[Alirezanet]

Dim exefile = Application.ExecutablePath
این آدرس برنامتون رو بهتون میده !!
Dim Directory = System.IO.Path.GetDirectoryName(exefile)
این هم آدرس دایرکتوری مورد نظره !

[mostafa194]

تشكر فراوون
ممنون!