vb6 批量重命名文件

vb6 批量重命名文件;这里只用到name函数加for循环，来命名列表框里的文件！！脑洞大开的可以用filebox代替 ；命名所有文件！！

Dim g

Dim iuser

iuser = Environ("username")

ipath = "C:\Users\" & iuser & "\Desktop" & "\test\"

For g = 0 To List1.ListCount - 1

Name ipath & List1.List(g) & ".pdf " As ipath & List1.List(g) & "_" & Format(Now, "yyyymmdd") & ".pdf "

Next