| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1504 人关注过本帖
标题:求助 一段改文件名的代码 错在哪 ?谢谢!
只看楼主 加入收藏
sx_dg
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2015-11-28
结帖率:90%
收藏
已结贴  问题点数:20 回复次数:2 
求助 一段改文件名的代码 错在哪 ?谢谢!
Sub aaa()
Dim bb As String
Dim cc As String
Dim d As String
bb = Dir("C:\Documents and Settings\Administrator\桌面\需要改名" & "\*.*", vbNormal)
cc = "C:\Documents and Settings\Administrator\桌面\改名后的文件"
a = 0
Do While bb <> ""                                          '
   a = a + 1
   d = InStrRev(bb, ".")
   If Mid(bb, d, 4) = ".mp4" Then
      Name bb As cc & "\" & a & ".mp4"             '提示:文件没找到。错在哪 ?
   End If
   bb = Dir
Loop
End Sub
说明 bb 不是空的,目标文件夹中一定有*.mp4 文件苦干

[此贴子已经被作者于2015-12-25 02:20编辑过]

2015-12-25 02:18
HVB6
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:15
帖 子:331
专家分:561
注 册:2013-10-30
收藏
得分:20 
回复 楼主 sx_dg
试试:
Sub aaa()
Dim bb As String
Dim cc As String
Dim d As String,s As String
s="C:\Documents and Settings\Administrator\桌面\需要改名\"
bb = Dir("C:\Documents and Settings\Administrator\桌面\需要改名" & "\*.*", vbNormal)
cc = "C:\Documents and Settings\Administrator\桌面\改名后的文件"
a = 0
Do While bb <> ""                                          '
   a = a + 1
   d = InStrRev(bb, ".")
   If Mid(bb, d, 4) = ".mp4" Then
      Name s & bb As cc & "\" & a & ".mp4"             '提示:bb 前面漏文件路径s
   End If
   bb = Dir
Loop
End Sub
2015-12-25 08:48
sx_dg
Rank: 1
等 级:新手上路
帖 子:27
专家分:0
注 册:2015-11-28
收藏
得分:0 
回复 2楼 HVB6
    首先谢谢 游侠老师 的帮助,我在实际的应用中也加过目标文件的路经,也是提示"文件没找到",因此对 Name s & bb As cc & "\" & a & ".mp4" 这句代码产生了怀疑,通过老师的帮助后肯认Name s & bb As cc & "\" & a & ".mp4" 结构没问题。经过认真的查找,发现实际应用中目标文件的路经是由Dir1 文件夹控件的.Path 属性 获取的最后不是以\"结束的。Name s "\" & bb As  cc & "\" & a & ".mp4" 成了。
2015-12-26 01:28
快速回复:求助 一段改文件名的代码 错在哪 ?谢谢!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.026783 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved