Dosya Kopyası Açıklama
Dosyayı bir dizinden diğerine kopyalar.
Basit Dosya Kopyalama Örnekleri
1 | FileCopy "C:\Test.txt" "D:\" |
Bu, “C:\” üzerindeki “Test.txt” dosyasını D sürücüsüne kopyalayacaktır.
"C:\" üzerinde "Test.txt" dosyası yoksa, bir Çalışma Zamanı hatası '53' oluşur: Dosya bulunamadı.
Dosya Kopyası Sözdizimi
VBA Düzenleyicisi'nde, FileCopy Bildiriminin sözdizimini görmek için “FileCopy(” yazabilirsiniz:
FileCopy deyimi 2 bağımsız değişken içerir:
Kaynak: Kopyalanacak dosyanın dize adı. Yolu içerebilir.
Hedef: Hedef dosya adını belirten dize ifadesi. Hedef, dizin veya klasör ve sürücü içerebilir.
Excel VBA Dosya Kopyalama İşlevi Örnekleri
Lütfen aşağıdaki kodla test edin.
123456789101112131415161718192021222324252627282930 | Alt DosyaKopya_Örnek()Dim dlgFilePicker As FileDialogDim dlgFileSaveAs FileDialogDize Olarak strOrgFile DimDim strTarFile As StringdlgFilePicker = Application.FileDialog(msoFileDialogFilePicker) olarak ayarlayındlgFilePicker.AllowMultiSelect = YanlışdlgFilePicker.ButtonName = "Kopyala"dlgFilePicker.Title = "Lütfen kopyalanacak bir dosya seçin"dlgFilePicker.Show = True isestrOrgFile = dlgFilePicker.SelectedItems(1)BaşkaAlt ÇıkışBitirdlgFileSaveAs = Application.FileDialog(msoFileDialogSaveAs) olarak ayarlayındlgFileSaveAs.Title = "Lütfen bir klasör belirtin ve bir dosya adı yazın."dlgFileSaveAs.ButtonName = "Yapıştır"dlgFileSaveAs.Show = True isestrTarFile = dlgFileSaveAs.SelectedItems(1)BaşkaAlt ÇıkışBitirFileCopy strOrgFile, strTarFileAlt Bitiş |
Çalıştırıldığında, ilk önce “Lütfen kopyalanacak bir dosya seçin” iletişim kutusu görüntülenecektir.
Ardından, kopyalamak için bir dosya seçmelisiniz.
Bir dosya seçtikten sonra lütfen “Kopyala” düğmesine tıklayın.
Ardından, “Lütfen bir klasör belirtin ve bir dosya adı yazın” iletişim kutusunu görüntüler.
Bir hedef klasör seçmeli ve bir dosya adı yazmalısınız.
Bundan sonra, "Yapıştır" düğmesine tıklayın.
Ardından, kaynak dosya hedef klasör ve dosya adıyla kopyalanacaktır.