39 lines
1.5 KiB
VB.net
39 lines
1.5 KiB
VB.net
Imports DigitalData.Modules.Logging
|
|
|
|
Public Class frmFilesystem
|
|
Private LogConfig As LogConfig
|
|
Private Filesystem As DigitalData.Modules.Filesystem.File
|
|
|
|
Private ShortName As String = "E:\some_test_file.txt"
|
|
Private LongName As String = "E:\some_test_file_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more_data_and_with_some_more.txt"
|
|
|
|
Private Sub frmFilesystem_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Try
|
|
LogConfig = New LogConfig(LogConfig.PathType.Temp)
|
|
Filesystem = New DigitalData.Modules.Filesystem.File(LogConfig)
|
|
|
|
|
|
'Using oWriter = IO.File.CreateText("E:\some_test_file.txt")
|
|
' oWriter.WriteLine("bla bla bla")
|
|
'End Using
|
|
|
|
'IO.File.Copy(ShortName, LongName)
|
|
|
|
'Dim oVersion1 = Filesystem.GetVersionedFilename(LongName)
|
|
'IO.File.Copy(ShortName, oVersion1)
|
|
|
|
'Dim oVersion2 = Filesystem.GetVersionedFilename(LongName)
|
|
'IO.File.Copy(ShortName, oVersion2)
|
|
Catch ex As Exception
|
|
|
|
Finally
|
|
'IO.File.Delete(ShortName)
|
|
'IO.File.Delete(LongName)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim oDateString = Filesystem.CreateDateDirectory("E:\")
|
|
End Sub
|
|
End Class |