呵呵,整理一下这行就可以了,s终究是字符串,每一次if
成立都添加一个属性项
在此基础上整理应该不太远了
s
=
s
&
shell.GetDetailsOf(0,
i)
&
vbTab
&
shell.GetDetailsOf(shell.Items.Item(f.Name),
i)
&
vbLf
这个工程可不小!1.需要获取文件列表模块(这个我有写过)
2.需要执行 *** 作模块(重命名,删除等)
3.需要一些必要的算法
写这些都不是问题!
我写过一个数据命名工具,和这个有相同的地方!
“然后读取相关的属性”,不易实现呵呵,整理一下这行就可以了,s终究是字符串,每一次if 成立都添加一个属性项
在此基础上整理应该不太远了
s = s &shell.GetDetailsOf(0, i) &vbTab &shell.GetDetailsOf(shell.Items.Item(f.Name), i) &vbLf
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)