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

.7 Delete WMFile

Browse Source
This commit is contained in:
SchreiberM
2020-06-02 13:17:51 +02:00
parent e112487f66
commit 8cb37ee2a4
9 changed files with 674 additions and 1599 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -149,24 +149,24 @@ Public Class ClassAllgemeineFunktionen
End If
End Sub
Public Function Delete_xffres(originFile As String, clsWD As ClassWindream_allgemein)
Try
Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile)
Dim Path As String = System.IO.Path.GetDirectoryName(originFile)
Dim xffres As String = Path & "\" & Stammname & ".xffres"
If file_exists(xffres, clsWD) = True Then
System.IO.File.Delete(xffres)
LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht")
Return True
Else
Return Nothing
End If
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(" Fehler bei Delete_xffres", True)
LOGGER.Info("Fehlermeldung: " & ex.Message)
End Try
End Function
'Public Function Delete_xffres(originFile As String, clsWD As ClassWindream_allgemein)
' Try
' Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile)
' Dim Path As String = System.IO.Path.GetDirectoryName(originFile)
' Dim xffres As String = Path & "\" & Stammname & ".xffres"
' If file_exists(xffres, clsWD) = True Then
' System.IO.File.Delete(xffres)
' LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht")
' Return True
' Else
' Return Nothing
' End If
' Catch ex As Exception
' LOGGER.Error(ex)
' LOGGER.Info(" Fehler bei Delete_xffres", True)
' LOGGER.Info("Fehlermeldung: " & ex.Message)
' End Try
'End Function
'Public Function Delete_File(originFile As String)
' Try