创建一个文本文件,在其中输入:
成都创新互联服务项目包括阳谷网站建设、阳谷网站制作、阳谷网页制作以及阳谷网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,阳谷网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到阳谷省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!
dir *.txt /s /n 目录.txt
保存为XX.bat
然后双击运行即可在该文件夹下产生一个目录.txt的文件,里面有你要的内容,不用VB点虐
例如,把文件"E:\新建文件夹\a.txt"复制到剪贴板
CreateObject("Shell.Application").NameSpace("E:\新建文件夹").ParseName("a.txt").InvokeVerb "复制(C)"
这段代码的问题是:
首先for each循环在files里查找文件对象,但是f变量声明为string了,无法让它获取对象;
然后file.copy的变量file没有任何声明,也没有初始化赋值等;
最后,整个for each循环里查找集合files的文件,由于初始化的循环计数器仍然按照最初设定的文件数目向后递增(文件地址),但是实际文件删除一部分,后续的文件位置就不能跟循环计数指针匹配了,所以默认为查找不到文件,将会报错。一般的做法时把复制和删除分别放在2次循环里,第一次只复制文件,第二次才去删除。