Visual Basic NET ( 3)




, , , - 3


' 222 temp c:, .....

If Directory.Exists("c:\temp\222") Then Debug.WriteLine(" ") _

Else Debug.WriteLine(" ")

' 666 temp c: 222 temp c:

Directory.Move("c:\temp\666", "c:\temp\222\666")

' 666 777 222 temp c: temp c:

Directory.Move("c:\temp\222\666", "c:\temp\777")

' 777 555:

Directory.Move("c:\temp\777", "c:\temp\555")

End Sub

: Move . . , , .

.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

' 333 temp c:

Directory.SetLastAccessTime("c:\temp\333", #3/28/2003 10:22:00 AM#)

' 333 temp c:

Debug.WriteLine(Directory.GetLastAccessTime("c:\temp\333"))

' 333:

Debug.WriteLine(Directory.GetCreationTime("c:\temp\333"))

' 333 temp c:

Debug.WriteLine(Directory.GetLastWriteTime("c:\temp"))

', 333:

Debug.WriteLine(Directory.GetParent("c:\temp\333"))

End Sub

.

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click