获得某目录中的子目录和文件名

hdstu

如：  D:\123 下有 文件夹1 文件夹2 文件1.XLS 文件2.DOC 文件3.EXE 文件4.ZIP等， 需要获取到 文件夹名称和文件名称，并将其笔制到 D:\234目录下。最后是能够带着进度条和多线程操作，如果文件量大的话单线程程序容易假死。

lu2423

文件量大的话单线程程序可不一定假死

eyy168

LZ说的是复制一个目录下的 所有子文件夹及文件到另一个目录下吧.

xcopy 轻松搞定啊.

忘记方位

你好，我这里有个源码可以做参考，希望能够帮到你全盘搜索指定文件

hdstu

已经自己 解决

hdstu

  

子程序名	返回值类型	公开	备 注
子程序1	整数型
参数名	类 型	参考	可空	数组	备 注
途径	文本型
数组	文本型
是否带途径	逻辑型

变量名	类 型	静态	数组	备 注
x	文本型
x1	文本型

如果真 (取文本右边 (途径, 1) ≠ “\”)
x ＝ 途径 ＋ “\”
x1 ＝ 寻找文件 (x ＋ “*.*”, 16)
判断循环首 (x1 ≠ “”)
如果真 (取文本右边 (x1, 1) ≠ “.”)
判断 (是否带途径 ＝ 真)
加入成员 (数组, x ＋ x1)
加入成员 (数组, x1)

x1 ＝ 寻找文件 (, 16)
判断循环尾 ()
返回 (取数组成员数 (x1))

.版本 2<br /> <br /> .子程序 子程序1, 整数型, 公开<br /> .参数 途径, 文本型<br /> .参数 数组, 文本型, 可空 数组<br /> .参数 是否带途径, 逻辑型, 可空<br /> .局部变量 x, 文本型<br /> .局部变量 x1, 文本型<br /> <br /> .如果真 (取文本右边 (途径, 1) ≠ “\”)<br />     x ＝ 途径 ＋ “\”<br /> .如果真结束<br /> x1 ＝ 寻找文件 (x ＋ “*.*”, 16)<br /> .判断循环首 (x1 ≠ “”)<br />     .如果真 (取文本右边 (x1, 1) ≠ “.”)<br />         .判断开始 (是否带途径 ＝ 真)<br />             加入成员 (数组, x ＋ x1)<br />         .默认<br />             加入成员 (数组, x1)<br />         .判断结束<br /> <br />     .如果真结束<br />     x1 ＝ 寻找文件 (, 16)<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (x1))