// Multi-file Upload control
// "Receive files uploaded" event
// For each file
FOR I = 1 _TO_ UPL_Upload.Count
	// Retrieves the file name on the user computer
	sFileName is string = UploadFileName(UPL_Upload, False,I)
	// Upload the file into the _WEB directory
	sCopiedFileName is string = UploadCopyFile(UPL_Upload, fDataDir(), "",I)
	// Checks whether the file was copied
	IF fFileExist(fDataDir() + "\" + sCopiedFileName) THEN
		gsUploadedFile = fDataDir() + "\" + sCopiedFileName
	END
END

// Upload Edit control
SourceFile, DestFile are strings
// EDT_File is the name of the edit control containing the full name of file to upload
// Find the name of the file uploaded on the server
SourceFile = UploadFileName(EDT_File)
// If SourceFile exists, copy it into the directory of documents on the server
IF SourceFile <> "" THEN
	// Find the name of the file uploaded on the client
	DestFile = UploadFileName(EDT_File, False)
	DestFile = "c:\documents\" + fExtractPath(DestFile, fFile + fExtension)
	// Copy the file
	fCopyFile(SourceFile, DestFile)
END