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

MS Referenz W-Laufwerk

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-12-19 17:09:23 +01:00
parent 0ccd050d4c
commit fb148c193c
24 changed files with 1364 additions and 819 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
app/DD_PM_WINDREAM/ClassAllgemeineFunktionen.vb
View File

@@ -111,12 +111,12 @@ Public Class ClassAllgemeineFunktionen
End If
End Sub
Public Function Delete_xffres(originFile As String)
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, False) = True Then
If file_exists(xffres, clsWD) = True Then
System.IO.File.Delete(xffres)
ClassLogger.Add(">> Datei " & xffres & " erfolgreich gelöscht", False)
Return True
@@ -128,42 +128,27 @@ Public Class ClassAllgemeineFunktionen
ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
End Try
End Function
Public Function func_check_file_use(ByVal filename) As Boolean
Dim fs As Integer = FreeFile()
Dim inuse As Boolean = False
If File.Exists(filename) Then
Try
FileOpen(fs, filename, OpenMode.Binary, _
OpenAccess.ReadWrite, OpenShare.LockReadWrite)
Catch
inuse = True
Finally
FileClose(fs)
End Try
End If
Return inuse
End Function
Public Function Delete_File(originFile As String)
Try
'Public Function Delete_File(originFile As String)
' Try
If file_exists(originFile, False) = True Then
System.IO.File.Delete(originFile)
ClassLogger.Add(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
Return True
Else
MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
Return False
End If
Catch ex As Exception
ClassLogger.Add(" Fehler bei Delete_File", True)
ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
End Try
End Function
' If file_exists(originFile, False) = True Then
' System.IO.File.Delete(originFile)
' ClassLogger.Add(">> Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
' Return True
' Else
' MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
' Return False
' End If
' Catch ex As Exception
' ClassLogger.Add(" Fehler bei Delete_File", True)
' ClassLogger.Add(">> Fehlermeldung: " & ex.Message, False)
' End Try
'End Function
Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer)
Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer, clsWD As ClassWindream_allgemein)
Try
If vpdfviewer <> "internal" And vMove_File.EndsWith("pdf") Then
Do While func_check_file_use(vMove_File) = True
Do While clsWD.CheckFileExists(vMove_File) = True 'func_check_file_use(vMove_File)
ClassLogger.Add(">> MoveRename: Datei noch geöffnet - Warten", False)
System.Threading.Thread.Sleep(500)
Loop
@@ -178,7 +163,7 @@ Public Class ClassAllgemeineFunktionen
Dim version As Integer = 1
If vZiel_Pfad <> path Then
Dim Stammname As String = IO.Path.GetFileNameWithoutExtension(vMove_File)
Do While file_exists(_Ziel, False) = True
Do While file_exists(_Ziel, clsWD) = True
Dim neuername As String = Stammname & "~" & version & extension
_Ziel = neuername
version = version + 1
@@ -198,13 +183,9 @@ Public Class ClassAllgemeineFunktionen
Return ex.Message
End Try
End Function
Public Function file_exists(ByVal _file As String, ByVal suche As Boolean)
Public Function file_exists(ByVal _file As String, clsWD As ClassWindream_allgemein)
Try
If System.IO.File.Exists(_file) Then
Return True
Else
Return False
End If
Return clsWD.CheckFileExists(_file)
Catch ex As Exception
ClassLogger.Add("Fehler in Funktion file_exists - Fehler: ", ex.Message)
Return False