标题: [已结]vbs 如何重命名文件? [打印本页]
作者: huzixuan 时间: 2007-6-17 12:13 标题: [已结]vbs 如何重命名文件?
如何将当前目录 a.txt 重命名为 b.ini ?
感谢两位的解答,问题其实很简单.
但是就是没有搜索到这个方法,所以厚真脸皮发了一帖.
这几种办法,高明!
[ Last edited by huzixuan on 2007-6-17 at 02:41 PM ]
作者: slore 时间: 2007-6-17 12:36
Set objFSO = CreateObject("Scripting.FileSystemObject")
'方法一
'objFSO.MoveFile "a.txt","b.ini"
'方法二
Set objFile = objFSO.getFile("a.txt")
objFile.Name = "b.ini"
Set objFile = Nothing
Set objFSO = Nothing
作者: zh159 时间: 2007-6-17 13:41
方法三：（变相
）Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "cmd /c ren a.txt b.ini"
WshShell.Run "cmd /c ren a.txt b.ini"
作者: wydos 时间: 2007-6-17 18:08
收藏了
作者: 3742668 时间: 2007-6-17 18:48
方法四：
Set oShell = CreateObject("WScript.Shell")
sCurrentDir = oShell.CurrentDirectory
sFileName = "b.bmp"
sOldName = sCurrentDir & "\" & sFileName
sNewName = sCurrentDir & "\c.bmp"
GetObject("Winmgmts:CIM_DataFile.Name='" & sOldName & "'").ReName sNewName
sCurrentDir = oShell.CurrentDirectory
sFileName = "b.bmp"
sOldName = sCurrentDir & "\" & sFileName
sNewName = sCurrentDir & "\c.bmp"
GetObject("Winmgmts:CIM_DataFile.Name='" & sOldName & "'").ReName sNewName
作者: ipconfig 时间: 2007-6-17 23:18
你们真强啊!学习啊!