با سلام وخسته نباشید
هنگام کپی کردن فایل از یک مسیر به مسیر دیگه در خط دستور fle.copy (destin) خطای Run time error 70 permission denid را میده.
چطوری به برنامه ای که در اکسس نوشته شده permission بدیم؟
با سپاس
با سلام وخسته نباشید
هنگام کپی کردن فایل از یک مسیر به مسیر دیگه در خط دستور fle.copy (destin) خطای Run time error 70 permission denid را میده.
چطوری به برنامه ای که در اکسس نوشته شده permission بدیم؟
با سپاس
دوستان کسی تا بحال با این مورد برخورد نکرده؟؟
با سلام ارور مربوط به مجوز سطح دسترسی به رجیستری است
از طریق run as admin برطرف میشه
https://msdn.microsoft.com/en-us/lib...(v=vs.60).aspx
عزیران لطفا کمک کنید .
?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ????????????????????????//
توضیح کافی ندادین از چه روشی استفاده میکنین : متد filesystemobject.copyfile یا تابع shell ؟
فایلی هست که خودتون create کردین یا نه؟
مسیر و اسم مستقیم دادین یا با کد سرهم میکنین؟
کد ها رو اینجا بگذارین شاید روش سر هم کردن اشکال داشته باشه.
بیشترین شک به این هست که مسیر و اسم اشکال داره و یا فایل هنوز بازه
انتخاب تصویر
Dim f As File
Dim copy As New FileSystemObject
Dim StrPic, varFileName, destin As String
Private Sub Cmd_SelectPic_Click()
Dim strFilter As String
destin = Application.CurrentProject.Path & "\logo"
strFilter = "Picture(*.Jpg)|*.bmp | *.png)"
varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=0, _
strInitialDir:="C:\Windows\", _
strDialogTitle:="ÊÕæíÑ ÂÑã ÔÑ˜Ê ÑÇ ÇäÊÎÇÈ ˜äíÏ")
If IsNull(varFileName) Or varFileName = "" Then
MsgBox Space(20) & " ÇäÊÎÇÈ ÊÕæíÑ áÛæ ÔÏ ", vbCritical, "ÇÎØÇÑ"
Img_logo.Picture = Empty
Exit Sub
Else
Img_logo.Picture = varFileName
End If
End Sub
کپی فایل (تصویر) انتخاب شده در مسیر destin و دخیره ادرس فایل در جدول
Private Sub Cmd_save_Click()
If Img_logo.Picture <> "" Then
Set f = copy.GetFile(varFileName)
'f.copy (destin)
copy.CopyFile varFileName, destin, True
StrPic = destin & "\" & copy.GetFileName(varFileName)
End If
.
.
.
f.copy (destin)
copy.CopyFile varFileName, destin, True
در هر حالت فوق خطای Run time error 70 permission denid میده
اکسس 2013 run as admin هست
در لحضه وقع خطا مقادیر varFileName, destin چک کردم مشکلی نداره
کد درست هست ولی وقتی آدرس فولدر میدین آخرش یک \ لازم داره!
destin = Application.CurrentProject.Path & "\logo\"
در مورد جایگزینی apiهای 32 بیت به امکانات ذاتی اکسس هم فکر کنید، مثل application.filedialog
ممنون حل شد دستتان درد نکنه
چه جالب ، نمی دونستمدر مورد جایگزینی apiهای 32 بیت به امکانات ذاتی اکسس هم فکر کنید، مثل application.filedialog
ممنون