怎么动态创建文件夹？谢谢！

771122 2003-08-21 11:12:56

动态fln
<SCRIPT LANGUAGE="vbs">
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\"&fln)
</script>

...全文

46 14 打赏收藏转发到动态举报

写回复

用AI写文章

14 条回复

切换为时间正序

请发表友善的回复…

发表回复

bright1234 2003-12-30

打赏
举报

up,我也碰到这个问题，不知道怎样才能一步建立多级的目录？help～！！！！！！！！！！！！！！！

topmonkey 2003-12-30

打赏
举报

<%
'-- 自定义函数：创建任意文件夹 ------------------------------------------------------------------------
Function CreateDIR(LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建
Dim FileObject, pathArr, path_Level, i, pathtmp, cpath
On Error Resume Next
LocalPath = Replace(LocalPath,"\","/")
Set FileObject = Server.Createobject("Scripting.FileSystemObject")
pathArr = Split(LocalPath,"/")
path_Level = UBound(pathArr)
For i = 0 To path_Level
If i = 0 Then
pathtmp = pathArr(0) & "/"
Else
pathtmp = pathtmp & pathArr(i) & "/"
End If
cpath = Left(pathtmp, Len(pathtmp) - 1)
If Not FileObject.FolderExists(cpath) Then
FileObject.CreateFolder cpath
End If
Next
Set FileObject = Nothing
If Err.Number<>0 Then
CreateDIR = False
Err.Clear
Else
CreateDIR = True
End If
End Function
'---------------------------------------------------------------------------------------------------------
%>

flying310 2003-12-30

打赏
举报

用fso的这个函数CreateFolder()动态实现自己想。

771122 2003-08-21

打赏
举报

什么目录只读？？

flygoocn 2003-08-21

打赏
举报

目录只读打开的吧

771122 2003-08-21

打赏
举报

<%flname=a
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("d:\"&flname)
%>
我只运行这一句，显示错误？

Microsoft VBScript 编译器错误错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误错误 '800a0046'

没有权限

/3.asp，行3

771122 2003-08-21

打赏
举报

没有那么麻烦吧？
我只是想fln是个变量，怎么才能执行下面的：
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\"&fln)

我的程序不执行，
只能放在vbs中，怎么才能把fln传进去

做个好人 2003-08-21

打赏
举报

我想问怎么才能按照日期自动生成目录呢例如:/2003/08/21/www/xml的目录呢?

hansun 2003-08-21

打赏
举报

'随机生成目录名

Dim i, intNum, intUpper, intLower, intRand, strPartPass, genPassword
foldername=year(date)
foldername1=month(date)
if len(foldername1)=1 then foldername1='0' & foldername1
foldername=foldername&foldername1
foldername1=day(date)
if len(foldername1)=1 then foldername1='0' & foldername1
foldername=foldername&foldername1&hour(time)&minute(time)&second(time)
folders=foldername

'建立目录
set fso=Server.CreateObject("Scripting.FileSystemObject")
fp=fso.buildpath(server.mappath("/school/manage/fj/"),""&folders&"")
set fod=fso.createfolder(fp)