进者高分!谢谢大家!

[liujinhuagirl]

比如说,我现在上传一个文件(2003.12),那摸我要放在发\file_out\file下,首先自己先搜索目录下是否有2003这个文件夹,若有则在搜索在2003下是否有12这个文件夹,有则写入,没有则均要自己创建!
请各位提建议?谢谢!

[cshadow]

Set fs = server.CreateObject("scripting.filesystemobject")
filename = server.mappath("xls\1.txt")
'如果文件已经存在，就先删除
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if

set myfile = fs.CreateTextFile(filename,true)

[monkeys]

有则写入,没有则均要自己创建!
请各位提建议?

写相应的代码就可以啊！

[liujinhuagirl]

代码我已编出了供大家参考.
set fso=server.createobject("scripting.filesystemobject")
dim dd,ddd,tt,yy,pp
tt=date()
yy=year(tt)
pp=month(tt)
dd="file/"&yy
ddd="file/"&yy"/"&pp
fname1=server.mappath(dd)
fname2=server.mappath(ddd)
if fso.folderexits(fname1)=0 then
fso.createfolder(fname1)
end if
if fso.folderexits(fname2)=0 then
fso.createfolder(fname2)
end if
以上代码ok!

[suhuoqiang]

代码我已编出了供大家参考.
set fso=server.createobject("scripting.filesystemobject")
dim dd,ddd,tt,yy,pp
tt=date()
yy=year(tt)
pp=month(tt)
dd="file/"&yy
ddd="file/"&yy"/"&pp
fname1=server.mappath(dd)
fname2=server.mappath(ddd)
if fso.folderexits(fname1)=0 then
fso.createfolder(fname1)
end if
if fso.folderexits(fname2)=0 then
fso.createfolder(fname2)
end if
以上代码ok!

[minghui000]

关注

[nomoodforjoking]

自己在2052文件夹里找一下vbscript参考