Bunu zamanında bir yerden alıntı yapmıştım.

Hepsini deneme fırsatım olmadı. Bazılarında hata alırsanız yardımcı olabilirim.

Emeğe saygı....(Duruma gore konuyu silebilirim..)

Dosya Taşıma:
PHP Code:
My.Computer.FileSystem.MoveFile("C:\eski_klasor\do sya.txt", "C:\yeni_klasor\dosya.txt")


Klasor Taşıma :
PHP Code:
My.Computer.FileSystem.MoveDirectory("C:\kaynak_kl asor", "D:\Hedef_klasor")




Dosya yaratma :
PHP Code:
My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)




Klasor yaratma :
PHP Code:
My.Computer.FileSystem.CreateDirectory("C:\Yeni_kl asor")




Dosya Kopyalama
PHP Code:
My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")




Klasor Kopyalama :
PHP Code:
My.Computer.FileSystem.CopyDirectory("C:\kaynak_kl asor", "D:\yeni_klasor")




Gecici Dosya Oluşturma: Uygulamaya import visual.basic desteği eklenmeli.
PHP Code:
Dim dosyaadi As String = My.Computer.FileSystem.GetTempFileName()




Dosya Silme
PHP Code:
My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)




Klasor Silme :
PHP Code:
My.Computer.FileSystem.DeleteDirectory("C:\Test.tx t", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)




İstenen Dosya Var mı ?
PHP Code:
Dim dvarmi As Boolean= My.Computer.FileSystem.FileExists("C:\Test.txt")




İstenen Klasor Var mı ?
PHP Code:
Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_k lasor")




Bu Dosyanın Boyutu Kac ?
PHP Code:
Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("dosya.txt").Le ngth




Diskin Boş Boyutunu Oğrenme :
PHP Code:
Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFr eeSpace




Dosyanın Bilgilerini Oğrenme :
PHP Code:
Dim dbilgi As FileInfo = My.Computer.FileSystem.GetFileInfo("C:\Test.txt")




Klasor Yeniden Adlandırma
PHP Code:
My.Computer.FileSystem.RenameDirectory("C:\eski_kl asor", "yeni_klasor")




Dosya Yeniden Adlandırma :
PHP Code:
My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")




Emeğe saygı...

__________________