社区
VB基础类
帖子详情
folder.Files问题 请教高手
tanyaliji
2007-04-12 04:59:38
用folder.Files遍历文件夹内内容时出错.
For Each file In folder.Files
....
'用来把2007增加到文件名中去.
'如把文件名,ms.txt 变为ms2007.txt
....
next
结果发现:当文件很多时,有一些文件遍历好多次.如,有一些文件名变成MS200720072007200720072007200720072007.txt
请教各位高手.
...全文
387
9
打赏
收藏
folder.Files问题 请教高手
用folder.Files遍历文件夹内内容时出错. For Each file In folder.Files .... '用来把2007增加到文件名中去. '如把文件名,ms.txt 变为ms2007.txt .... next 结果发现:当文件很多时,有一些文件遍历好多次.如,有一些文件名变成MS200720072007200720072007200720072007.txt 请教各位高手.
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
9 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
tanyaliji
2007-04-14
打赏
举报
回复
准备结贴
笨笨兔兔兔兔兔
2007-04-12
打赏
举报
回复
因为你一直在生成新名字,这样for循环就一直执行啊,呵呵,你还没想明白问题??
其实你可以用放一个hash表在里面记录你已经改过的名字,然后对照正在循环的名字,如果碰上有相同的了,然后就跳出,就好了
tanyaliji
2007-04-12
打赏
举报
回复
liuxiaoyi666(MSMVP 小猪妹荣誉马甲之八卦兔子)
如果不用FSO用什么呢?////
tanyaliji
2007-04-12
打赏
举报
回复
有道理, 但是我想问的是folder.Files循环的时候,为什么不能循环到底啊..
笨笨兔兔兔兔兔
2007-04-12
打赏
举报
回复
中间的逻辑是有问题的,你用的是fso,这个是木错的
还有本身vb程序可以不用fso的....
clear_zero的水平见长啊,其实这个可以用哈希表的方式解决,应该比数组更好
zzyong00
2007-04-12
打赏
举报
回复
很明显,缺少条件限定
clear_zero
2007-04-12
打赏
举报
回复
你可以在循环的时候把文件名字读取到一个数组中
然后循环数组更改
alexdong2002
2007-04-12
打赏
举报
回复
由于修改了文件的名称,系统处理文件已经不是同一个了;
可以在此之前添加判断条件,如果文件名城中含有2007字样则不加入2007
tanyaliji
2007-04-12
打赏
举报
回复
有没有人遇到过这种情况啊.
谢谢各位了.
matlab 读取word的表格数据,
请教
高手
:使用VBA批量提取word中的表格数据,急!
代码如下:Dim
Files
List(1 To 99999, 1 To 1) '在主SUB代码外定义数组及位置变量,为跨SUB调用Dim
Files
List_i As Integ
er
Dim FS As ObjectDim If_Sub As StringSub 遍历文件() '主SUBDim Path_todo As StringPath_todo = InputBox("输入待处理目录路径", ...
一组Linux命令
今天做测试发现Oracle服务器磁盘使用率达到100%导致Oracle S
er
v
er
不能够正常运行,花了好久时间最后
请教
Linux
高手
清理了出了100GB的空间,下面列出用到的一些Linux Command, as Following: 1. Use 'df' to check file system disk usage df -k df -l the outputs:
Files
...
jsp中404
问题
的解决
tomcat能启动,localhost:8080/能见到猫,但是访问localhost:8080/test/MyJsp.jsp就报404错误能看到猫证明 环境变量 没有
问题
JDK TOMCAT也没
问题
至少平台搭建起来了我的路径没有
问题
,环境变量也设了,tomcat5和6都试过,一样的,这是怎么回事呢?
请教
高手
,谢谢project name:testweb root fo
智能客户端
请教
最近下载了Updat
er
Application Block V2.0,在实践时,自动更新总是无法成功,更新日志如下,还请
高手
们指点下:[Download
er
Manag
er
.RunDownload
er
] : Checking on updates for application 'myApp'. [ApplicationUpdateManag
er
.StartUpdat
er
] : ...
sharepoint知识点总结
SPListCollection转DatatableSPListItemCollection unprocessedItems = List.GetItems(qu
er
y);DataTable dt1 = unprocessedItems.GetDataTable();
Fold
er
类型添加自定义属性 mySite = new SPSite("http...
VB基础类
7,757
社区成员
197,606
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章