www.kamuflaj.org

iki tane yeni yetme oÄŸlancık (Duman) . -OÄŸlancık lafını ÅŸarkıdan esinlenerek kullandığımı belirtmek isterim :)- çıkıp ÅŸarkılarında Kuran-ı Kerim’deki bir ayeti deÄŸiÅŸtiriyor. Ihlas suresindeki “Lem yelid velem yuled” (Allah, DoÄŸmamıştır ,doÄŸurulmamıştır) ayeti bakın nasıl deÄŸiÅŸtiriliyor. Allah sonumuzu hayreylesin

Ortada bir dergah var
Devrilir başın yarar
Arkasında tezgah var
Lem yelid ve löp yutar

Projenize “System.IO” “Microsoft.visualbasic” import etmek zorundasınız

Klasör Taşıma:
My.Computer.FileSystem.CopyDirectory(”C:\kaynak_klasor”, “D:\Hedef_klasor”)

Dosya Kopyalama:
My.Computer.FileSystem.CopyFile(”C:\kaynak.txt”, “C:\yeni_klasor\hedef.txt”)

Dosya Yaratma:
My.Computer.FileSystem.WriteAllText(”C:\Test.txt”, String.Empty, False)

Klasör Yaratma:
My.Computer.FileSystem.CreateDirectory(”C:\Yeni_klasor”)

Geçici Dosya Oluşturma:
uygulamaya import visual.basic desteÄŸi eklenmeli
Dim dosyaadi As String = My.Computer.FileSystem.GetTempFileName()

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

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

İstenen Klasör Var mı?
Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists(”C:\hedef_klasor”)

Bir Dosyanın Boyutu Kaç?
Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo(”dosya.txt”).Length

Diskin Boş Boyutunu Öğrenmek:
Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo(”C:\”).TotalFreeSpace

Bir Dosyanın Bilgilerini Öğrenme:
Dim dbilgi As FileInfo = My.Computer.FileSystem.GetFileInfo(”C:\Test.txt”)

Dosya Taşıma:
My.Computer.FileSystem.MoveFile(”C:\eski_klasor\dosya.txt”, “c:\yeni_klasor\dosya.txt”)

Dosyadan Metin Okuma:
Dim dicerigi As String = My.Computer.FileSystem.ReadAllText(”C:\Test.txt”)

Klasörü Yeniden Adlandırma:
My.Computer.FileSystem.RenameDirectory(”C:\eski_klasor”, “yeni_klasor”)

Dosyayı Yeniden Adlandırma:
My.Computer.FileSystem.RenameFile(”C:\eski.txt”, “yeni.txt”)