???????fso.getfolder???????

tg123 2003-01-12 11:15:49

每每执行
set fFolder=fso.GetFolder("F:\myweb\")

访问很久
让侯就出现403.9too many users

...全文

33 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

genuis 2003-01-13

打赏
举报

回复

是不是没有执行fso的权限？

tg123 2003-01-12

打赏
举报

回复

对队对
你的代码
救出这个错误了

meizz 2003-01-12

打赏
举报

回复

<html><body style="font-size: 13px">
读取一个文件夹或子文件夹内的所有文件范例<br><br>
<%
Dim objFSO,objFolder,objFile,FF '声明 objFSO 变量存放对象实例
FF = Server.MapPath("./images")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(ff) Then
Response.write "文件夹 "&ff&" 里所有的文件：<br>"
Set objFolder = objFSO.GetFolder(ff) '看看这句
For Each objFile in objFolder.Files
Response.Write objFile.Name & "<br>"
Next
Else
Response.Write "文件夹"&ff&"不存在，无法读取相关信息！"
End If
Set objFolder = Nothing
Set objFSO = Nothing '释放 FileSystemObject 对象实例内存空间
%>
</body></html>

tg123 2003-01-12

打赏
举报

回复

set fFolder=fso.GetFolder(server.mappath("myweb"))
也出错同样的错误

meizz 2003-01-12

打赏
举报

回复

set fFolder=fso.GetFolder(server.mappath("myweb"))
你到底是要读服务器端的文件夹还是客户端的???

代码如下: <% dim fso,objFolder,objFiles dim filelist Set fso=Server.CreateObject(“scripting.FileSystemObject”) Set objFolder=fso.GetFolder(server.MapPath(“thumbs”)) Set objFiles=objFolder.Files ‘循环输出文件夹path下的文件的文件名 For each objFile in objFiles If getExt(objFile.name)=”gif” or getExt(objFile.name)=”jpg”

Sub ListFilesInFolder() Dim fso As Object Dim folder As Object Dim file As Object Dim folderPath As String ' 设置文件夹路径 folderPath = "C:\Your\Folder\Path" ' 创建FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") ' 获取文件夹对象 Set folder = fso.GetFolder(folderPath) ' 遍历文件夹中的文件 For Each file In folder.Files Debug.Print file.Name ' 输出文件名到立即窗口 Next file Set file = Nothing Set folder = Noth Set fso = Nothing End sub

测试wps有效，必须要安装VBA； Sub button_getname() Application.ScreenUpdating = False Set fso = CreateObject("scripting.filesystemobject") Set ff = fso.getfolder(ThisWorkbook.Path) 'ActiveSheet.UsedRange.ClearContents a = 2 For Each f In ff.Files If f.Name <> ThisWorkbook.Name And f.Name <> "~$" + ThisWorkbook.Name Then Cells(a, 1) = f.Name '相对路径名 End If a = a + 1 Next f Application.ScreenUpdating = True End Sub 修改文件名 Name ff + "\" + Cells(a, 1) As ff + "\" + Cells(a, 2)

<% Dim fso,f,folder Set fso=Server.CreateObject(“scripting.filesystemobject”) ‘改目录名 Set folder=fso.getfolder(Server.Mappath(“Old”)) folder.name=”New” ‘新名字 ‘改文件名 Set f=fso.getfile(Server.Mappath(“Old.asp”)) f.name=”New.asp” ‘新名字 ‘释放 %>

createfile,getfilename,createfolder,getfoldername,fileexists,opentextfile,copyfile,copyfolder,movefile,folderexists,movefolder,deletefile,deletefolder

28,391

社区成员

357,060

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章