[VBA] çoklu dosya taşıma

kayaae · 27-03-2019, 19:52

Selam kıymetli hocalarım ,

Ben çoklu dosya kopyalama ile ilgili bilgilerinize başvurmak istiyorum. Forumda benzer başlıklar var lakin verilen linkler kaybolmuş, sanırım benim dışımda herkes konuyu iyice anlamış ki linke gerek kalmamış Smile

Diyelim ki c:/deneme adında bir klasörümüz var , masa üstünde de a.pdf , b.pdf , c.pdf ( dosya isimleri temsilidir, sayısı ve dosya uzantısı değişebilir ) isimli dosyalarımız olsun. Bahsi geçen dosyaları tek seferde seçip toplu halde c:/deneme klasörüne kopyalamak istiyorum.

Form üzerinde bir komut butonu tanımladım, tıklandığında olayına ne yazmam gerekir?

Yardımlarınız için şimdiden teşekkür ederim.

Saygılarımla.

dsezgin · 28-03-2019, 01:59

Visual Basic
Sub DosyaKopyala()
Dim BagliDosya As String, Dosya, trz
With Application.FileDialog(msoFileDialogFilePicker)
With .Filters
.Clear
.Add "Tum Dosyalar", "*.*"
End With
.AllowMultiSelect = True
.FilterIndex = 1
.ButtonName = "Dosya Ekle"
.InitialFileName = Environ("UserProfile") & "\Desktop\"
.InitialView = msoFileDialogViewDetails
.Title = "Kopyalanacak Dosyayi Seç"
If .Show Then
For Each Dosya In .SelectedItems
BagliDosya = Mid(Dosya, Len(Left(Dosya, InStrRev(Dosya, "\"))) + 1, Len(Dosya)) '& "#" & Dosya
Set trz = CreateObject("Scripting.FileSystemObject")
trz.CopyFile Dosya, "C:\deneme\" & BagliDosya
Next Dosya
End If
End With
End Sub

C:\'de deneme klasoru acmali ve VBA da Microsoft Ofice ... Object Library referansini isaretleyin.

kayaae · 28-03-2019, 16:31

Teşekkür ederim Sezgin Hocam,

Deneyip geri dönüş bildireceğim.

Saygılarımla..

kayaae · 28-03-2019, 16:55

Sezgin Hocam,

Emeğiniz için teşekkür ederim, bir iki ayrıntı değiştirerek problemi çözdüm.

Saygılarımla..

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	Aktarım Yaparken Dosya Adını Değiştirme	zimbit	4	112	04-02-2024, 00:42 Son Mesaj: zimbit
	[FORM] form klasör içinde dosya kontrolü	obaysal42	4	2.179	29-12-2023, 10:24 Son Mesaj: burhanb
	[VBA] Dosya Yolu Yazdırma	benuva	2	115	26-11-2023, 19:06 Son Mesaj: benuva
	[VBA] Dosya Yolu Boş Ise Hata Alıyorum	serdem48	4	114	26-10-2023, 14:11 Son Mesaj: serdem48
	[TABLO] çoklu Birleşik Giriş Kutusu	RASİMPEH	2	140	19-09-2023, 04:53 Son Mesaj: RASİMPEH
	Toplu .csv, .xlsx, .xls, .xml Dosya Aktarımı Yapmak	adnnfrm	2	238	22-06-2023, 19:04 Son Mesaj: dsezgin
	Access.db , Yüksek Dosya Boyutu.	BeyTor	9	345	13-05-2023, 22:43 Son Mesaj: BeyTor
	Access I Bulut Uygulamaları Ile Anlık çoklu Kullanıcı Erişimi	BeyTor	12	592	23-04-2023, 22:05 Son Mesaj: BeyTor

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL