请教批量更改文件名的问题。急！急！急！

lhj88

请各位帮忙，我需要将数据库中的职工号批量替换为职工姓名，非常感谢！！！

lhj88

怎么没有答复？

eio

                     \\\|///
                  \\ ~~ ~~ //
                   (  @ @  )
┏━━━━━oOOo━(www.eio.com.cn)━oOOo━━┓
┃★☆☆－全自动（数码）电话录音设备－☆☆★     ┃
┃TEL：0760-2121286 0760-2123061 0760-8567110┃
┃手机：013068186386    联系人：何镇安           ┃
┃网址:HTTP://WWW.EIO.COM.CN                          ┃
┃       广东省中山市爱欧电子电器厂              ┃
┗━━━━━━━━oooO━━(   )━━━━━━━━━┛
                  (   )    ) /
                   \ (    (_/
                    \_)
★旧贴不是有吗？★
－－－－－－－－－－
如当前的BMP目录下有0.BMP-12.BMP，如何批量替换为窗体的姓名.bmp?

On Error Resume Next
    Me.RecordsetClone.MoveFirst
    Do While Not Me.RecordsetClone.EOF
Name CurrentProject.Path & "\bmp\" & RecordsetClone("ID") & ".bmp" As CurrentProject.Path & "\bmp\" & RecordsetClone("职工姓名") & ".bmp"
Me.RecordsetClone.MoveNext
Loop

[此贴子已经被作者于2003-8-8 15:17:58编辑过]

我要飞

删除工号字段，将姓名字段改名为工号，最简单吧！