白桦林 发表于:2011-10-18 13:30:16
我希望用窗体的文本框和命令按钮实现对照片的重命名,如附件示例:
点击下载此附件
重命名规则为:当给窗体中的文本框输入值(数字)后,第一张照片的名称就是该文本框的数字
第二张照片的名称为文本框的值+1,
第三张照片的名称为文本框的值+2,……依此类推
窗体中的命令按钮用于指令开始重命名。
Private Sub Command2_Click()
Dim dirname As String
Dim i
Dim mypath As String
mypath = CurrentProject.Path & "\要重命名的照片\"
i = Me.Text0
dirname = Dir(mypath & "*.jpg")
Do While dirname <> ""
Name mypath & dirname As mypath & "\potala_palace_" & i & ".jpg"
dirname = Dir
i = i + 1
Loop
End Sub
Private Sub Command2_Click()
'引用:Microsoft Scripting Runtime
Dim fso As New FileSystemObject
Dim myFolder As Folder
Dim myFile As File
Dim i As Long
Set myFolder = fso.GetFolder(CurrentProject.Path & "\要重命名的照片")
i = Me.Text0.Value
For Each myFile In myFolder.Files
myFile.Name = i & Mid(myFile.Name, InStrRev(myFile.Name, "."))
i = i + 1
Next myFile
Set myFile = Nothing
Set myFolder = Nothing
Set fso = Nothing
End Sub
一楼的方法未通过
点击命令按钮无任何反应~!!
二楼的方法在调试时出现“编辑错误:用户定义类型未定义”错误提示~!!!
二楼的错误提示的同时代码“fso As New FileSystemObject”显示蓝色
鬼打架,不是给你注释了要增加引用Microsoft Scripting Runtime吗?
一楼对我的理解错误
我要得到的重命名结果是文本框的数字
不带前面的那么多字符~!!