中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS疑难解答 & 问题讨论（解答室） » [求助]一个编程问题

chenhui530
高级用户

积分 772
发帖 273
注册 2004-10-23
状态离线

『楼主』: [求助]一个编程问题

在VB。NET或者在VBSCRIPT中如何对文件夹下的子文件夹和文件进行操作
比如列出这些文件夹下所有的文件夹列表和文件列表

http://www.msfans.net/bbs/

2005-1-26 00:00

(77740821)

chenhui530
高级用户

积分 772
发帖 273
注册 2004-10-23
状态离线

『第 2 楼』:

自己解决了
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
dim win
win="c:"
Function ShowFileList(win)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject"

Set f = fs.GetFolder(win)
Set sf = f.SubFolders
For Each f1 in sf
y=win&"\"&f1.name
set allfile=f1.files
      for each c in allfile
      x=y&"\"&c.name
      set g=fs.opentextfile("c:\filelist.txt",8,true)
      g.writeline(x)
      g.close
      next
      ShowFileList(y)
   next
End Function
call ShowFileList(win)

[此贴子已经被作者于2005-2-5 14:26:23编辑过]

http://www.msfans.net/bbs/

2005-2-3 00:00

(77740821)

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: