System.IO, Zugferd

This commit is contained in:
2024-09-23 09:53:59 +02:00
parent 9337d563e5
commit 0db7067b42
14 changed files with 152 additions and 152 deletions

View File

@@ -74,14 +74,14 @@
pathArchiv = ""
End If
If Not IO.Directory.Exists(path) Then IO.Directory.CreateDirectory(path)
If Not System.IO.Directory.Exists(path) Then System.IO.Directory.CreateDirectory(path)
'Zuerst alle IMP-Daten löschen, damit es zu keinen Missverständnissen kommt
'For Each f In IO.Directory.GetFiles(path)
'For Each f In System.IO.Directory.GetFiles(path)
' If f.ToString.Contains("DVO_IMP_") Then
' Try
' IO.File.Delete(f)
' System.IO.File.Delete(f)
' Catch ex As Exception
' End Try
' End If
@@ -145,14 +145,14 @@
'In Archiv sichern
If pathArchiv <> "" Then
If Not IO.Directory.Exists(pathArchiv) Then IO.Directory.CreateDirectory(pathArchiv)
IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
If Not System.IO.Directory.Exists(pathArchiv) Then System.IO.Directory.CreateDirectory(pathArchiv)
System.IO.File.Copy(path & Dateiname, pathArchiv & Dateiname)
End If
If bool_DatenVorhanden Then
If OpenFile Then Process.Start(path & Dateiname)
Else
IO.File.Delete(path & Dateiname)
System.IO.File.Delete(path & Dateiname)
End If
Catch ex As Exception