AppStd/Monorepo
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

TestGUI: Test new msgbox

Browse Source
This commit is contained in:
Jonathan Jenne
2022-02-08 16:28:48 +01:00
parent c6e67a967c
commit be617951b3
8 changed files with 261 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
GUIs.Test.TestGUI/frmFilesystem.vb
View File

@@ -12,23 +12,28 @@ Public Class frmFilesystem
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)
'Using oWriter = IO.File.CreateText("E:\some_test_file.txt")
' oWriter.WriteLine("bla bla bla")
'End Using
Dim oVersion1 = Filesystem.GetVersionedFilename(LongName)
IO.File.Copy(ShortName, oVersion1)
'IO.File.Copy(ShortName, LongName)
Dim oVersion2 = Filesystem.GetVersionedFilename(LongName)
IO.File.Copy(ShortName, oVersion2)
'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)
'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