关于用VF批量改名的问题~!

xuhautian 2010-01-06 11:14:59
有一个文件夹,里面全是.jpg格式的文件,名称如:13100001.jpg 13100008.jpg 13100010.jpg......(1310都一样的)
如何实现把前缀1310去掉 所有的文件名称变成0001.jpg 0008.jpg 0010.jpg

如何实现...vf的...
...全文
96 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
xuhautian 2010-01-07
  • 打赏
  • 举报
回复
十分感谢啊~!
WWWWA 2010-01-06
  • 打赏
  • 举报
回复
ss=ADIR(dd,'*.xls')
FOR i=1 TO ALEN(dd,1)
IF LEFT(dd(i,1),4)='1310'
FF='RENAME '+DD(I,1)+' TO '+STRTRAN(DD(I,1),'1310','')
&FF
ENDI
next
十豆三 2010-01-06
  • 打赏
  • 举报
回复
lnFileNumber=Adir(aFile,'路径\*.jpg')
For m.lnI=1 To lnFileNumber
If Left(aFile(m.lnI,1),4)='1310'
lcStr='Rename '+aFile(m.lnI,1)+' To '+Substr(aFile(m.lnI,1),5)
&lcStr.
Endif
Endfor

2,723

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧