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 Adlı Kullanıcıdan Alıntı: 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 Adlı Kullanıcıdan Alıntı: Bende neden o "reddedildi" hatasını veriyor ki acaba antivirusu mu durdursam


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


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

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


şeklinde dene..

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da