主题：[讨论]与大家探求易表能否自动获取目录名（含下级目录）和目录下的文档名？

我知道怎么用run运行VBS
egd文件下载

点自定义按钮 将在D盘下 生成一个list.txt

后面的工作 就交给易表了


-=-=-=- 以下内容由 lxl 在 2007年09月18日 10:11pm 时添加 -=-=-=-
易表对bat表对 第2列用evalfor进行控制 呵呵 用起来很灵活 一个vbs就够了

晕  我才发现为什么你们说的vbs文件不能用run执行 而我把vbs放在任何地方都能用run执行

我只安装了易表的运行环境,无论vbs文件在哪都能run

我把我23楼的文件从发 把docdir改成appdir  

楼主所谓的参数 就是表中的第二列 这列的内容 可以用易表控制.
cmd /c Dir C:\ /b >D:\list.txt

第二列可以用刷新公式
"cmd /c Dir "+docdir+"data /b >"+docdir+"list.txt"

根据list.txt的内容  第二列的内容还可以变 变成dir下一级目录

忘了文件
egd文件下载

用ImportTextFile()导回易表  做为一级目录
然后把这些一级目录 用search(".",[一级目录])>-1的方法 把文件 和文件夹区分开
将文件夹用刷新公式
写到第2列  有多少个文件夹就写多少条记录
有vbs一次生成多个txt文件  每个txt文件命名规则为 [一级目录].txt

然后ImportTextFile导回 这些txt的内容 得到二级目录

呵呵 易表太讨厌了
,0  由于,号   导出的txt文件自动加上""
我想想别的办法

set ws=CreateObject("WScript.Shell")
ws.Run "cmd /c Dir D:\wmcj\data /b >D:\wmcj\list.txt"",0"

用vbhide代替0也不行  只要有,存在就加引号   如果不要那个参数 导出

set ws=CreateObject("WScript.Shell")
ws.Run "cmd /c Dir D:\wmcj\data /b >D:\wmcj\list.txt"
就能正常运行

-=-=-=- 以下内容由 lxl 在 2007年09月19日 00:59am 时添加 -=-=-=-
如果不管闪屏问题 就能解决整个问题

-=-=-=- 以下内容由 lxl 在 2007年09月19日 01:03am 时添加 -=-=-=-
明天再说吧 这么晚了  大家都休息吧

egd文件下载

-=-=-=- 以下内容由 lxl 在 2007年09月19日 01:12am 时添加 -=-=-=-
这个vbs  是放在docdir下面的
我装的运行环境能run
你如果想用run运行要把按钮的docdir改成appdir

呵呵 原来可以用for 我还一直埋着头想苯方法

如果能解决到处的引号问题  就不用bat文件了

RAR文件下载
解压到任意地方

点按钮就能得到文件路径

唯一的问题就是闪屏  
只要带有引号和逗号这两个符号的单元格,易表导出的txt文件中就自动加上"………………"
好象印上了 版权所有

-=-=-=- 以下内容由 lxl 在 2007年09月19日 10:10am 时添加 -=-=-=-
不能放到桌面  因为桌面路径有汉字
dos命令不起作用

厉害
果然好用
才知道易表还有个copyfile()