System.IO, Zugferd
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user