附件
附件中有“photo”文件夹，其中有16张照片；数据库中表1中有16条记录。
希望实现
在窗体1中按“重命名”命令按钮后将照片按其名称的顺序重命名为指定的名
重命名规则：
“photo”文件夹中的照片已按"名称"排序 !!
现在希望在按窗体1中按“重命名”命令按钮后将排序为第一张照片的名称重命名为“表1”中[序号]为1的[号码] ，即6108260042，将排序为第二张照片的名称重命名为表1中[序号]为2的[号码]，即6108260045，以此类推。
'如果取得的文件名（不含路径）和相应的照片目录中的文件重名
strFileName = Mid(strSource, InStrRev(strSource, "\") + 1)
'将路径+文件名保存到变量
strFilePath = CurrentProject.Path & "\图片\" & Me.零件类别 & "\" & Me.零件ID & ".jpg"
一记录多图片数据处理与打印-Access软件网
http://www.accessoft.com/store_show.asp?ID=77
上面的代码是这个示例里面的一部分，你的需求这个示例全部实现了，选取图片，保存到文件夹，命名为记录中的某个字段
Sub ReNamePic(ByVal path As String)
'功能：重命名文件夹中的图片名
'参数：path -- 文件夹地址
'引用：Microsoft Scripting Runtime
'示例：Call ReNamePic(CurrentProject.path & "\photo")
Dim fso As New FileSystemObject
Dim fld As Folder
Dim f As File
Dim rs As New ADODB.Recordset
Dim ssql As String
Set fld = fso.GetFolder(path)
ssql = "select * from 表1"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For Each f In fld.Files
f.Name = rs!号码.Value & Mid(f.Name, InStrRev(f.Name, "."))
rs.MoveNext
Next
rs.Close: Set rs = Nothing
Set fso = Nothing
Set fld = Nothing
Set f = Nothing
End Sub
煮江品茶老师、
易勋老师，我重新上传了附件，请给我在附件里处理一下！
好笨呀
1、在Vb的编辑视图中找到菜单栏--工具--引用，在打开的窗口找到Microsoft Scripting Runtime，并勾选、确定。
2、新建一个模块，将我上面写的代码拷贝到模块中。
3、在按钮的单击事件中写：
Call ReNamePic(Me.Application.CurrentProject.path & "\photo")
煮江品茶老师，你给的方法在运行是出现调试提示
附件
您帮我运行一下附件试试
总记录：7篇 页次：1/1 9 1 :
