neu
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user