Upload - Save form files with special name.

Examples

Upload - Save form files with special name.
<% 'Sample file Field-SaveAs-I.asp 'Save source files with special file names 'Create upload form Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm") 'was the Form successfully received? If Form.State = 0 Then 'Get an destination path Dim DestPath: DestPath = Server.MapPath(".") 'File counter Dim I: I=1 For Each File In Form.Files Response.Write "<br>File" & I & " was saved as " Response.Write DestPath & "\UploadFolder\SourceFile" & I & ".bin" 'Save file with a new name File.SaveAs DestPath & "\UploadFolder\SourceFile" & I & ".bin" ' I = I+1 Next End If'Form.State = 0 then %> <br>sample For <A Href=http://www.motobit.com>HugeASP upload</A> <br>Save source files with special file names <form name="file_upload" method="POST" ENCTYPE="multipart/form-data" > <Div ID=files> File 1 : <input type="file" name="File1"><br> File 2 : <input type="file" name="File2"> </Div> <Input Type=Button Value="Add a file" OnClick=return(Expand()) Style="border=0;background=yellow;cursor:hand"><br> Description:<input Name=Description1><br> <input Name=SubmitButton Value="Submit >>" Type=Submit><br> </Form> <Script> var nfiles = 2; Function Expand(){ nfiles++ var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'">'; files.insertAdjacentHTML('BeforeEnd',adh); return false; } </Script>

<%
  'Sample file Field-SaveAs-I.asp 
  'Save source files with special file names

'Create upload form
Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")

'was the Form successfully received?
If Form.State = 0 Then

  'Get an destination path
  Dim DestPath: DestPath = Server.MapPath(".")

  'File counter
  Dim I: I=1
  For Each File In Form.Files
    Response.Write "<br>File" & I & " was saved as "
    Response.Write DestPath & "\UploadFolder\SourceFile" & I & ".bin"
    'Save file with a new name
    File.SaveAs DestPath & "\UploadFolder\SourceFile" & I & ".bin"
    '
    I = I+1
  Next
End If'Form.State = 0 then

%>  
<br>sample For <A Href=http://www.motobit.com>HugeASP upload</A>
<br>Save source files with special file names
<form name="file_upload" method="POST" ENCTYPE="multipart/form-data" >
<Div ID=files>
   File 1 : <input type="file" name="File1"><br>
   File 2 : <input type="file" name="File2">
</Div>
<Input Type=Button Value="Add a file" OnClick=return(Expand()) 
 Style="border=0;background=yellow;cursor:hand"><br>

Description:<input Name=Description1><br>
<input Name=SubmitButton Value="Submit >>" Type=Submit><br>
</Form>

<Script>
var nfiles = 2;
Function Expand(){
  nfiles++
  var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'">';
  files.insertAdjacentHTML('BeforeEnd',adh);
  return false;
}
</Script>

Other links for Upload - Save form files with special name.

ScriptUtils.FormField

One form field. Member of FormFields collection.

ScriptUtils

Easy to use, hi-performance ASP file upload component with progress bar indicator. Let's you upload multiple files with size up to 2GB to a disk or database along with another form fields. Works with large posts, any character set (including unicode utf-8). Contains one-click multiple files/folders download with on-the-fly compression (Using BinaryWrite/BinaryRead).

      Hi-performance text file logging for ASP/VBScript/VBA applications. Lets you create daily/weekly/monthly log files with variable number of logged values and extra timing and performance info.
       Lets you work with safearray binary data in VBS/JS. It also enables conversion between binary and String data using several code pages. ZLib compress and uncompress functions. Lets you transfer files using compressed stream from a client to server using IE.
      This library also enables calling of some Kernel and Advapi functions (performance, timing, sleep, configuration ...) and enables native work with INI files.

	Upload - Save form files with special name.
	Sample for ScriptUtils.FormField.SaveAs