fso的文件夹建立问题

[slayerbb]

set pat="F:\e\" + hosts
if not fso.folderexists(pat) then
fso.createfolder(pat)
end if

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

缺少对象: '[string: "F:\e\0123.net"]'

/serv-u.asp，行38

郁闷。。。

还有，fso中有没有类似于find的函数功能？

就是fso.OpenTextFile()之后，在文件tmp文件中进行比较。。
比如寻找时否包含“user=slayerbb ”

谢谢

解决就马上放分

[lawdoor]

< %
' create the fso object
set fso = Server.Createobject("Scripting.FileSystemObject")
path = "c: emp est.txt"
strDate = Replace(Date(), "/", "")
strDir = "c:inetpubwwwrootarticles" & strDate
strNewFileName = Hour(Now) & "_" & Minute(Now) & "_" &
second(Now) & ".html"

' open the old file
set file = fso.opentextfile(path, 1) < -- For reading
strText = file.readall
set file = nothing

' check for and/or create folder
if not fso.folderexists(Server.MapPath(strDir)) then
set f = fso.CreateFolder(Server.MapPath(strDir))
else
set f = fso.GetFolder(Server.MapPath(strDir))
end if

' create and write new file
set file = fso.Createtextfile(f.path & "" & strNewFileName)
file.write(strText)
set f = nothing
file.close
set file = nothing

' delete the old file
fso.DeleteFile(path & "" & rst("FileName") & i)
' clean up
set fso = nothing
%>

[lawdoor]

遍历目录以及目录下文件的函数

<%
function bianli(path)
set fso=server.CreateObject("ｓcripting.filesystemobject")

on error resume next
set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders

nowpath=path + "\" + objSubFolder.name

Response.Write nowpath

set objFiles=objSubFolder.Files

for each objFile in objFiles
Response.Write "<br/>---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)'递归

next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>

[slayerbb]

strDir = "c:inetpubwwwrootarticles" & strDate


set f = fso.CreateFolder(Server.MapPath(strDir))

不需要\？

这样的话

路径无效

/serv-u.asp，行11

MapPath 方法的路径参数必须是一个虚拟路径。使用了一个实际的路径。

[wanghr100]

这样就行了.

<%
hosts = "bao"
set fso = Server.Createobject("Scripting.FileSystemObject")
pat="F:\e\" & hosts
Response.Write pat
if not fso.folderexists(pat) then
fso.createfolder(pat)
end if
%>

[qxg1123]

文件夹名称不对




比较用instr

[fashchina]

up,差不多了，我想你应该可以解决问题了

[slayerbb]

sigh

自己多加了一个set。。。

谢谢各位了

现在想具体了解下面的问题
就是进行比较的问题
谢谢
现在分数还剩下30点
lawdoor 8
wanghr100(灰豆宝宝.net) 10
qxg1123(雄关漫道真如铁，而今迈步从头越) 2
余下的解决了就全部兑现

[amwje123]

关注!!!