救命！！怎么样在输入一条新记录的同时，在指定文件夹下，建立一个指定文件名的文件夹,怎么写这个asp程序，谢谢

[771122]

怎么样在输入一条新记录的同时，在指定文件夹下，建立一个指定文件名的文件夹,怎么写这个asp程序，谢谢

[Brookes]

出入纪录用conn.Execute("insert statement")
建立文件夹用FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\New Folder")

[771122]

set rs3=server.createobject("ADODB.recordset")
sql="insert into wzxh(flname) values('"&flname&"')"
set rs3=conn.Execute(sql)
set rs3=nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\&flname&")

我这样写对不对，怎么没有建立指定文件夹

[coffee_cn]

Set f = fso.CreateFolder("c:\"&flname)

[771122]

flname是个变量

Set f = fso.CreateFolder("c:\"&flname)
这样写，没建立文件夹

[771122]

救命哪

[nchen123]

没理由的，
response.write flname
看一下 flname 是不是一个有效的文件名（可以带路径）

[771122]

flname是有效的一个变量，
set rs3=server.createobject("ADODB.recordset")
sql="insert into zzcp(fln) values('"&fln&"')"
set rs3=conn.Execute(sql)
set rs3=nothing
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\"&flname)

还是不对

[freetaiger]

这个“flname”文件夹是不是已经存在了？
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("c:\"&flname) then
else
Set f = fso.CreateFolder("c:\"&flname)
end if
试试

[771122]

不显示错误，但是找不到文件夹？奇怪

[771122]

为什么？帮帮我

[771122]

flname=a
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\"&flname)
我这样写，显示“没有权限”错误！