I am doing some file upload checking but I cannot remove a file while using a WHILE LOOP. I get the error message
"Error:Script: /LivePreview/$$A623.a5w line:48
file.remove(filename)
The process cannot access the file because it is being used by another process.
C:\UploadedFiles\".
below is the code I have in my fileupload page
Anyone has any suggestions on how I can go about checking the file
then removing it, if it doesn't meet the requirements or any file checking utilities I can use with alpha?
Any suggestions would be welcomed
Thank you
Rogers
......
"Error:Script: /LivePreview/$$A623.a5w line:48
file.remove(filename)
The process cannot access the file because it is being used by another process.
C:\UploadedFiles\".
below is the code I have in my fileupload page
Code:
dim msg as c = ""
dim msg1 as c
dim vUserFolder_name as c
dim reg_num as c
if eval_valid("submitButton")
'check folder to see if user folder exists,the user folder is created during registration of user.
'if file.exists("C:\A5Webroot\UploadedFiles" "\\"+session.vUserFolder_name) = .T.
'Check to see if user chooses a file for upload
If FileToUpload.filename<>""
'Check to see if user already uploaded a file with the same name
result=file.exists("C:\UploadedFiles" "\\"+vUserFolder_name+ "/"+FileToUpload.filename)
if result=.F.
'Check to see if user uploads the correct file type
If right(FileToUpload.filename,3)=".c3" .or. right(FileToUpload.filename,3)="txt"
'Check to see if user chooses a file for upload that is less than the stipulated file size allowed
If FileToUpload.data.size() < 100000 ' checks size limit of image,25600bytes=100kb
file.from_blob("C:\UploadedFiles" "\\"+vUserFolder_name+ "/"+FileToUpload.filename, FileToUpload.data)
file_pointer = file.open("C:UploadedFiles" "\\"+vUserFolder_name+ "/"+FileToUpload.filename,FILE_RW_SHARED)
msg=FileToUpload.filename + " was uploaded<br /><br />""</a> on"+" "+date()+" "+time()
text= file_pointer.read_line() 'read the first line
tbl=table.open("[PathAlias.ADB_Path]\registration.dbf",FILE_RW_SHARED)
Reg_num=word(text,2)
filename="C:\UploadedFiles" "\\"+vUserFolder_name+ "/"+FileToUpload.filename
while .not.file_pointer.eof()
text = file_pointer.read_line() 'read the next line
if Reg_num=alltrim(lookupc("F",alltrim(session.__protected__Puser.Ulink),"Reg_num","registration","Employer_Id"))=.T.
else
file.remove(filename)
msg="<strong><font color=#800000>Wrong employer number included in file, Please check File and Re-Submit</strong></font>"
end if
end while
'end if
'If user tries to upload a file that is larger than the file upload size specified, this message is displayed
else
msg="<strong><font color=#800000>The size of the file you attempted to upload is " +format_data(FileToUpload.data.size()/1024,"B")+"K,the file selected must be less than 25k</strong></font>"
end if
else
'If user tries to upload a file other than the file type specified, this message is displayed
msg="<strong><font color=#800000>The file must be a .C3 file</font> </strong></font> "
end if
else
'If user tries to upload a file that has already been uploaded
msg="<strong><font color=#800000>File already Uploaded, please chose a different file to upload</strong></font> "
end if
'If user hits upload button without choosing a file show message
else
msg="<strong><font color=#800000>Please select a file to Upload</strong></font> "
end if
end if 'Ends Nested If loop
then removing it, if it doesn't meet the requirements or any file checking utilities I can use with alpha?
Any suggestions would be welcomed
Thank you
Rogers
......
Comment