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