Süper Üye
[font=Roboto, serif]Dosya Taşıma:[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")[/FONT]
[font=Roboto, serif]Klasör Taşıma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\Hedef_klasor")[/FONT]
[font=Roboto, serif]Dosya yaratma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)[/FONT]
[font=Roboto, serif]Klasör yaratma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")[/FONT]
[font=Roboto, serif]Dosya Kopyalama[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")[/FONT]
[font=Roboto, serif]Klasör Kopyalama :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")[/FONT]
[font=Roboto, serif]Geçici Dosya Oluşturma: Uygulamaya import visual.basic desteği eklenmeli.[/FONT]
[font=Roboto, serif]Kod:
Dim dosyaadi As String = My.Computer.FileSystem.GetTempFileName()[/FONT]
[font=Roboto, serif]Dosya Silme[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)[/FONT]
[font=Roboto, serif]Klasör Silme :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.DeleteDirectory("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)[/FONT]
[font=Roboto, serif]İstenen Dosya Var mı ?[/FONT]
[font=Roboto, serif]Kod:
Dim dvarmi As Boolean= My.Computer.FileSystem.FileExists("C:\Test.txt")[/FONT]
[font=Roboto, serif]İstenen Klasör Var mı ?[/FONT]
[font=Roboto, serif]Kod:
Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")[/FONT]
[font=Roboto, serif]Bu Dosyanın Boyutu Kaç ?[/FONT]
[font=Roboto, serif]Kod:
Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("dosya.txt").Length[/FONT]
[font=Roboto, serif]Diskin Boş Boyutunu Öğrenme :[/FONT]
[font=Roboto, serif]Kod:
Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace[/FONT]
[font=Roboto, serif]Dosyanın Bilgilerini Öğrenme :[/FONT]
[font=Roboto, serif]Kod:
Dim dbilgi As FileInfo = My.Computer.FileSystem.GetFileInfo("C:\Test.txt")[/FONT]
[font=Roboto, serif]Klasör Yeniden Adlandırma [/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")[/FONT]
[font=Roboto, serif]Dosya Yeniden Adlandırma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")[/FONT]
İşinize Yararsa Ne Mutlu Bana !
______________
Rep Vermeyi Unutmayın (Vermesenizde Olur :keyif: )
[font=Roboto, serif]Kod:
My.Computer.FileSystem.MoveFile("C:\eski_klasor\dosya.txt", "C:\yeni_klasor\dosya.txt")[/FONT]
[font=Roboto, serif]Klasör Taşıma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\Hedef_klasor")[/FONT]
[font=Roboto, serif]Dosya yaratma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)[/FONT]
[font=Roboto, serif]Klasör yaratma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CreateDirectory("C:\Yeni_klasor")[/FONT]
[font=Roboto, serif]Dosya Kopyalama[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CopyFile("C:\kaynak.txt", "C:\yeni_klasor\hedef.txt")[/FONT]
[font=Roboto, serif]Klasör Kopyalama :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.CopyDirectory("C:\kaynak_klasor", "D:\yeni_klasor")[/FONT]
[font=Roboto, serif]Geçici Dosya Oluşturma: Uygulamaya import visual.basic desteği eklenmeli.[/FONT]
[font=Roboto, serif]Kod:
Dim dosyaadi As String = My.Computer.FileSystem.GetTempFileName()[/FONT]
[font=Roboto, serif]Dosya Silme[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.DeleteFile("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)[/FONT]
[font=Roboto, serif]Klasör Silme :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.DeleteDirectory("C:\Test.txt", FileIO.UIOption.AllDialogs, FileIO.RecycleOption.SendToRecycleBin)[/FONT]
[font=Roboto, serif]İstenen Dosya Var mı ?[/FONT]
[font=Roboto, serif]Kod:
Dim dvarmi As Boolean= My.Computer.FileSystem.FileExists("C:\Test.txt")[/FONT]
[font=Roboto, serif]İstenen Klasör Var mı ?[/FONT]
[font=Roboto, serif]Kod:
Dim kvarmi As Boolean = My.Computer.FileSystem.DirectoryExists("C:\hedef_klasor")[/FONT]
[font=Roboto, serif]Bu Dosyanın Boyutu Kaç ?[/FONT]
[font=Roboto, serif]Kod:
Dim dboyutu As Long = My.Computer.FileSystem.GetFileInfo("dosya.txt").Length[/FONT]
[font=Roboto, serif]Diskin Boş Boyutunu Öğrenme :[/FONT]
[font=Roboto, serif]Kod:
Dim bosalan As Long = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace[/FONT]
[font=Roboto, serif]Dosyanın Bilgilerini Öğrenme :[/FONT]
[font=Roboto, serif]Kod:
Dim dbilgi As FileInfo = My.Computer.FileSystem.GetFileInfo("C:\Test.txt")[/FONT]
[font=Roboto, serif]Klasör Yeniden Adlandırma [/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.RenameDirectory("C:\eski_klasor", "yeni_klasor")[/FONT]
[font=Roboto, serif]Dosya Yeniden Adlandırma :[/FONT]
[font=Roboto, serif]Kod:
My.Computer.FileSystem.RenameFile("C:\eski.txt", "yeni.txt")[/FONT]
İşinize Yararsa Ne Mutlu Bana !
______________
Rep Vermeyi Unutmayın (Vermesenizde Olur :keyif: )