This commit is contained in:
2024-12-10 10:57:25 +01:00
parent ef72c9b82d
commit 190ba87aac
4 changed files with 163 additions and 28 deletions

View File

@@ -24,7 +24,7 @@ Public Class cTC_Functions
Dim destFilenameTMP = UPLOAD_PFAD + "." & If(IO.File.Exists(UPLOAD_PFAD & "." & fi.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & fi.Name
MsgBox(destFilenameTMP)
' MsgBox(destFilenameTMP)
'Datei hochladen
IO.File.Copy(file, destFilenameTMP)
' If IO.File.Exists(destFilenameTMP) Then IO.File.Delete(F) 'Datei nach erfolgreichem Herunterladen vom Server löschen