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