This commit is contained in:
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions

View File

@@ -137,7 +137,7 @@ Public Class usrCntlMDMAuswertungen
Dim fn As String = sPath & "WOELFL.csv" '" & Now.ToString("ddMMyyyyHHmmss") & ".csv"
Dim outFile As IO.StreamWriter = Nothing
Dim outFile As System.IO.StreamWriter = Nothing
Try
outFile = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
Catch ex As System.Exception
@@ -186,8 +186,8 @@ Public Class usrCntlMDMAuswertungen
End Sub
Sub cleartmp()
Dim dir = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\MDM\tmp\"
If IO.Directory.Exists(dir) Then
For Each file As String In IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
If System.IO.Directory.Exists(dir) Then
For Each file As String In System.IO.Directory.GetFiles(dir) ' Ermittelt alle Dateien des Ordners
Try
My.Computer.FileSystem.DeleteFile(file)
Catch ex As System.Exception : MsgBox(ex.Message) : End Try