September 4th, 2003, 08:52 AM
|
 |
Registered User
|
|
Join Date: Sep 2003
Posts: 6
Time spent in forums: < 1 sec
Reputation Power: 0
|
|
|
Problem with fso movefile (file already exists)
Guys
I'm posting files using a multipart form and ms posting acceptor to a folder on our intranet server. No problem. I then attach them to an email using CDONTS and off they go. Now, I was then deleting them from the folder using fso deletefile and all was fine but I decided that rather than delete them, I would move them to another folder.
I create the subfolder thus:
Code:
'create a folder especially for this requisition...
Dim filesys, demofolder, folcoll
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder("D:\intranet\uploads\")
Set folcoll = demofolder.SubFolders
folcoll.Add(rs.Fields("requisitionID").Value)
...fine, but then when I try to move the files:
Code:
'...and move the attachments into it....
dim objfilesys
for intx = lbound(arrX) to ubound(arrX)
Set objfilesys = CreateObject("Scripting.FileSystemObject")
objfilesys.MoveFile Server.MapPath("../uploads/" & arrX(intx)), Server.MapPath("../uploads/" & rs.Fields("requisitionID").Value & "/")
Next
it all goes pear shaped and I get the error:
Microsoft VBScript runtime error '800a003a'
File already exists
Any help would be greatly appreciated as I'm just about fed up of all this web development lark and am contemplating becoming a zoo keeper instead. Or something.
Cheers
|
Dev Shed Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
