Merhaba,
aşağıdaki kodda amacım seçilen klasördeki bir dosyayı (jpg) yine diogboxta seçtiğim klasörün altına kopyalamak bir hata yapıyorum fakat bulamadım
yardımcı olursanız sevirim , teşekkürler.
Private Sub CommandButton1_Click()
'----- dosya kopyalama------------
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Dosya Seçiniz"
If .Show = True Then
dosya = .SelectedItems(1)
End If
End With
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
Label19.Caption = ObjFolder.Items.Item.Path
FileCopy dosya, Label19.Caption
'--------------------------------------
End Sub
aşağıdaki kodda amacım seçilen klasördeki bir dosyayı (jpg) yine diogboxta seçtiğim klasörün altına kopyalamak bir hata yapıyorum fakat bulamadım
yardımcı olursanız sevirim , teşekkürler.
Private Sub CommandButton1_Click()
'----- dosya kopyalama------------
Dim fso As Object
Set fso = VBA.CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Dosya Seçiniz"
If .Show = True Then
dosya = .SelectedItems(1)
End If
End With
Set ObjFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
Label19.Caption = ObjFolder.Items.Item.Path
FileCopy dosya, Label19.Caption
'--------------------------------------
End Sub