Bende kendi sitemde yayınladığım bir örneği koyayım
Alıntı
Visual Basic ile herhangi bir dosyanın kaynak yolunu ve kopyalanmasını istediğiniz yeri belirterek dosya kopyalaması yapabilirsiniz.Bunun için bir kaç deklarasyon ve copyfile fonksiyonunu kullanmak yeterli.Kafanız karıştı ise örneğe bir göz atın.
Örnek:
İlk olarak bilgisayarıma girip,c: dizinine a.txt adında bir dosya açın,ardından aynı dizine a adında bir klasör daha açın.Daha sonra visual basic programını açın ve Form’a 2 tane text box,bir tane de buton ekleyin.Ardından Kod bölümüne:
Private Declare Function CopyFile Lib "kernel32" _
  Alias "CopyFileA" (ByVal lpExistingFileName As String, _
  ByVal lpNewFileName As String, ByVal bFailIfExists As Long) _
  As Long
Private Sub Command1_click()
Dim sonuc as long
On error resume next 'hata durumunda devam et
sonuc = copyfile("c:a.txt","c:a",false)
if sonuc > 0 then
Msgbox("kopyalama başarılı!")
else
Msgbox("kopyalama hatalı!")
end if
end sub
Tahmin edebileceğiniz gibi, kopyalama başarılı ise,program msj verecek.Ama siz yine de a klasörünü kontrol edin.Değil ise; ya belirttiğiniz yolda problem vardır, yada deklerasyonlarda.Bu işi daha kolaylaştırmak için
Common Dialog Control kullanmanızı öneririm.Buraya tıklayarak nasıl kullanabileceğinizi öğrenebilirsiniz.
Gördüğünüz gibi deklerasyonları tanımladıktan sonra fonksiyonu kullanmak oldukça kolay.
copyfile([dosyanın konumu],[kopyalanacak konum],True/False)
'true = üstüne yazma.
'false = üstüne yaz.