Skip to main content

AccessTr.neT


Dosya Yükleme İşleminde "permission Denied" Hatası

Dosya Yükleme İşleminde "permission Denied" Hatası

Çözüldü #1
merhaba arkadaşlar, bu kodda bi sıkıntı mı var çözemedim, bu kod iki ayrı "dosya seçme" ve "dosya yükleme" kodlarının birleştirilmiş hali, iki işlem olsun istemiyorum, kullanıcı hata yapabilir diye,

kırmızıyla gösterilen yerde "permission denied" hatası veriyor, kodda mı bi sıkıntı var yoksa başka ayarlarda mı?dosya ekte...

Dim fDialog As FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
    fDialog.title = "Yüklenecek Dosyayı Seçin"
    fDialog.InitialFileName = "C:\"
If fDialog.show = -1 Then
Me.video.Value = fDialog.SelectedItems(1)
Dim onur
Set onur = CreateObject("Scripting.FileSystemObject")
onur.CopyFile Me.video.Value, "C:\Users\ahmet umut\Desktop\online_egitimSON2REVİZE"
MsgBox "Dosya Yükleme İşlemi Başarıyla tamamlanmıştır", vbOKOnly, "REKLAM YAPMA"

End If
.zip yükle.zip (Dosya Boyutu: 598,87 KB | İndirme Sayısı: 3)
Cevapla
#2
Bende hata vermedi
işlem sorunsuz gerçekleşti
Cevapla
#3
Bende neden o "reddedildi" hatasını veriyor ki acaba antivirusu mu durdursam
Cevapla
#4
Dosyanızı inceleme fırsatı bulamadım ancak kodunuza baktığımda
Dim onur demişsiniz dim onur ?????? onuru ne olarak belirliyorsunuz set etmeden önce?
Cevapla
#5
(16/10/2020, 23:46)atoykan yazdı: Dosyanızı inceleme fırsatı bulamadım ancak kodunuza baktığımda
Dim onur demişsiniz dim onur ?????? onuru ne olarak belirliyorsunuz set etmeden önce?
Heralde object olarak demek istediniz.Dim onur olarak eklenirsede variant olacağı için sorunun kaynağı bundan olacağını sanmıyorum.
Bende incelemedim dosyayı.
Cevapla
#6
(16/10/2020, 19:59)tarkanaykın yazdı: Bende neden o "reddedildi" hatasını veriyor ki acaba antivirusu mu durdursam


onur.CopyFile Me.video.Value, "C:\Users\ahmet umut\Desktop\online_egitimSON2REVİZE"

üstteki kodda online_egitimSON2REVİZE'den sonra \ ekleyip,

onur.CopyFile Me.video.Value, "C:\Users\ahmet umut\Desktop\online_egitimSON2REVİZE\"

şeklinde dene..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task