下面这几个代表什么意思objfolder;getobjfolder(path);subfolder;objsubfolder;objsubfolder.name;objsubfolder.files;(hiddenfield=oread2,数值=1）

gypjy 2001-12-14 10:02:01

...全文

159 3 打赏收藏转发到动态举报

写回复

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

yemol_yuan 2001-12-14

打赏
举报

回复

修正以下不是关于文件
是关于系统的文件目录的
一般不太会用到。

gypjy 2001-12-14

打赏
举报

回复

能每个具体讲解吗？

julyclyde 2001-12-14

打赏
举报

回复

关于访问文件的

VBS定时删除文件脚本 Function DeleteLog( ) Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPath DirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set targetFSO = objFSO.GetFolder(DirPath) Set subFSO = targetFSO.SubFolders For Each subFolder in SubFSO If DateDiff("d", subFolder.name, date)>3 Then strPath = DirPath&subFolder;.name objFSO.DeleteFolder(strPath) End If Next End Function

NULL 博文链接：https://parra.iteye.com/blog/899893

代码如下: <% 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”

VBS脚本经典代码收集,一些常用的VBS代码搜集以及整理、方便复用

基于ASP的无数据库ASP目录直读生成产品列表+文本名称清单完美嵌入列表的程序.zip

28,406

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章