FileSystemObject sınıflarını kullanarak dosya ve klasorler uzerinde işlemler yapılabilir. Bunun icin oncelikle References diyalog kutusundan Microsoft Scrripting Runtime referansı projeye eklenmelidir. Referans projeye dahil edildikten sonra FileSystemObject nesnesini hazırlayalım ve bu sınıfın metotlarını kullanalım. Aşağıdaki kodu decleration kısmına ekleyelim;
Dim dosyasistem As New FileSystemObject
Şimdi FileSystemObject sınıflarını kullanarak işlemlerimizi gercekleştirelim. Aşağıdaki kodları kendi dosya ve klasorlerimize uygulayalım.
E surucusunde bulunan "burak.txt" dosyasını D surucusune kopyalıyalım;
dosyasistem.CopyFile "E:\burak.txt", "D:\", True
D surucusunde bulunan "burak.txt" dosyasını silelim;
dosyasistem.DeleteFile "D:\burak.txt"
D surucusunde "b.txt" adında bir txt dosyası oluşturalım;
Set dosya = dosyasistem.CreateTextFile("D:\b.txt", False)
D surucusunde "burak.txt" dosyasını arayalım;
Dim cvp As Boolean
cvp = dosyasistem.FileExists("D:\burak.txt")
If cvp = True Then
MsgBox "Dosya Var"
Else
MsgBox "Dosya Yok"
End If
D surucusunde "burak" adında bir klasor oluşturalım;
dosyasistem.CreateFolder "D:\burak"
D surucusunde bulunan "burak" isimli klasoru silelim;
dosyasistem.DeleteFolder "D:\burak"
E surucusundeki "burak" isimli klasoru D surucusune kopyalayalım;
dosyasistem.CopyFolder "E:\burak", "D:\"
D surucusunde "burak" adında bir klasor arayalım;
Dim cvp As Boolean
cvp = dosyasistem.FolderExists("D:\burak")
If cvp = True Then
MsgBox "Klasor Var"
Else
MsgBox "Klasor Yok"
End If
FileSystemObject sınıfları ile ilgili bazı komutları gorduk. Sizde bu komutlarla değişik projeler hazırlayabilirsiniz. Hepinize iyi calışmalar...

Kaynak site: vbprogramlar.tr.cx
__________________