DBMS 6 :FILE MANAGEMENT

'file management

Private Sub Command1_Click()
'create file
Dim filesystemobject, textstream As Object
Set filesystemobject = CreateObject("scripting.filesystemobject")
Set textstream = filesystemobject.createtextfile("c:\raja.txt", True)
textstream.write ("Hi")
End Sub

Private Sub Command2_Click()
'move file
Dim filesystemobject, textstream As Object
Set filesystemobject = CreateObject("scripting.filesystemobject")
filesystemobject.movefile "c:\raja.txt", "c:\vcet\raja.txt"


End Sub

Private Sub Command3_Click()
'copy file
Dim filesystemobject, textstream As Object
Set filesysteamobject = CreateObject("scripting.filesystemobject")
filesysteamobject.copyfile "c:\vcet\raja.txt", "c:\raja.txt"


End Sub

Private Sub Command4_Click()
'delete file
Dim filesysteamobject, fileobject As Object
Set filesysteamobject = CreateObject("scripting.filesystemobject")
filesysteamobject.Deletefile "c:\vcet\raja.txt"

End Sub

Private Sub Command5_Click()
'get file creatad date
Dim filesysteamobject As Object
Set filesysteamobject = CreateObject("scripting.filesystemobject")
Set fileobject = filesysteamobject.getfile("c:\raja.txt")
MsgBox "c:\raja.txt" & vbctrf & "was created" & fileobject.datecreated & vbctrf


End Sub

Private Sub Command6_Click()
'get file last accessed date
Dim filesysteamobject As Object
Set filesysteamobject = CreateObject("scripting.filesystemobject")
Set fileobject = filesysteamobject.getfile("c:\raja.txt")
MsgBox "c:\raja.txt" & vbctrf & "was last accessed" & fileobject.datelastaccessed & vbctrf


End Sub

Private Sub Command7_Click()
'get file last modified date
Dim filesysteamobject As Object
Set filesysteamobject = CreateObject("scripting.filesystemobject")
Set fileobject = filesysteamobject.getfile("c:\raja.txt")
MsgBox "c:\raja.txt" & vbctrf & "was last modified date " & fileobject.datelastmodified & vbctrf


End Sub

Private Sub Command8_Click()
'get file length
Dim filesysteamobject As Object
MsgBox "the c:\raja.txt fle" & Str(FileLen("c:\raja.txt")) & "bytes long"
End Sub