VBA Dosya Taşıma

VBA ile dosya taşıma işlemini yapmak için, FileSystemObject objesi kullanılabilir. Bu objenin "MoveFile" metodu, verilen kaynak dosyanın yolunu ve hedef yolunu alarak dosyayı hedef yere taşımak için kullanılabilir. Aşağıdaki kod örneği, kaynak dosyanın "C:\kaynak" dizininde bulunduğunu ve hedef yerinin "C:\hedef" dizininde bulunduğunu varsayar.

Sub DosyaTasima()
  Dim FSO As Object
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  Dim kaynakDosyaYolu As String
  kaynakDosyaYolu = "C:\kaynak\dosya.txt"
  
  Dim hedefDosyaYolu As String
  hedefDosyaYolu = "C:\hedef\dosya.txt"
  
  FSO.MoveFile kaynakDosyaYolu, hedefDosyaYolu
  MsgBox "Dosya başarıyla taşındı."
End Sub

Kodun açıklaması şu şekildedir.

  • İlk olarak, FileSystemObject objesi tanımlanır ve oluşturulur.
  • Kaynak dosyanın yolu ve hedef dosyanın yolu tanımlanır.
  • Son olarak, "MoveFile" metodu kullanılarak kaynak dosya hedef yere taşınır ve kullanıcıya başarı mesajı gösterilir.

VBA

İlginizi Çekebilir

VBA Bir String İçindeki Sayıların Toplamını Bulma Örneği

VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

VBA Bir Stringin Küçük Harfe Çevrilmesi

VBA Tüm Gizli Satır ve Sütunları Görünür Hale Getirmek

VBA Dosyanın Güncelleme Tarihini Değiştirme