Visual Basic .Net

Public Class FileSys
Dim FileSys1 As System.IO.File, FileInfo1 As System.IO.FileInfo
' Dosya Kopyalama Filename Dosyanın İlk Yolu, CopyFilename ise Kopyalancak Yer
' Hata Vermez
Public Sub Copy(ByVal FileName As String, ByVal CopyFileName As String)
FileSys1.Copy(FileName, CopyFileName)
End Sub
' Dosya Silme Filename - Dosyanın Bulunduğu Konum
' Hata Vermez
Public Sub Delete(ByVal Filename As String)
FileSys1.Delete(Filename)
End Sub
' Dosya'nın Sadece Adını Ve Turunu Alır
Public Function GetFileName(ByVal Filename As String)
FileInfo1 = New System.IO.FileInfo(Filename)
Return FileInfo1.Name
End Function
' Dosya'nın Tur'u Mesela ".txt" veya ".dll" Gibi
Public Function GetFileType(ByVal Filename As String)
FileInfo1 = New System.IO.FileInfo(Filename)
Return FileInfo1.Extension
End Function
' Dosya Varmı Yokmu True ise Var False ise Yok
Public Function GetFileExists(ByVal Filename As String)
FileInfo1 = New System.IO.FileInfo(Filename)
Return FileInfo1.Exists
End Function
' Dosyanın Oluşturulma Tarihini Alma
Public Function GetFileDate(ByVal Filename As String)
FileInfo1 = New System.IO.FileInfo(Filename)
Return FileInfo1.CreationTime
End Function
' Dosyanın Son Oluşturulma Tarihini Alma
Public Function GetFileLastDate(ByVal Filename As String)
FileInfo1 = New System.IO.FileInfo(Filename)
Return FileInfo1.LastWriteTime
End Function
End Class

Kullanmak Icin :

Formun kod kısmına Gelip

class Form1 Mesela onun altına gecip

Dim File1 as new filesys ' Yazın File1. Yazarak Komutları Gorup Tektek Yapabilirsiniz...

__________________