Private Sub File_Uploaded(Parts As Map)
ws.Session.RemoveAttribute("file_upload")
Dim part_File As Part = Parts.Get("input_file")
If part_File.IsInitialized Then
' this line is key. Once you done this part, IsFile will be True
Dim tempFile As String = part_File.TempFile
If part_File.IsFile Then
Dim folder As String = File.GetFileParent(tempFile)
tempFile = tempFile.SubString(folder.Length + 1)
Dim realFile As String = part_File.SubmittedFilename
RenameFile(folder, tempFile, folder, realFile)
Log("*** File successfully received ***")
Log("Submitted: " & part_File.SubmittedFilename)
Log("Received: " & part_File.TempFile)
ws.Alert("File " & part_File.SubmittedFilename & " was received")
Else
LogError("File was not uploaded")
ws.Alert("File was not uploaded")
End If
Else
LogError("File was not uploaded")
ws.Alert("File was not uploaded")
End If
ws.Flush
End Sub
' requires the JavaObject library
private Sub RenameFile(SourceFolder As String, SourceFile As String, TargetFolder As String, TargetFile As String) As Boolean
Dim source, target As JavaObject
source.InitializeNewInstance("java.io.File", Array(SourceFolder, SourceFile))
target.InitializeNewInstance("java.io.File", Array(TargetFolder, TargetFile))
Return source.RunMethod("renameTo", Array(target))
End Sub