『壹』 vbs 怎么批量修改文件名后缀
Set oShell = WScript.CreateObject ("WSCript.shell")oShell.run "ren *.aaa *.bbb"Set oShell = Nothing
『贰』 怎么写。用VBS重命名文件夹
可以用 FSO 组件。Function GetScriptPath() GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) – Len(WScript.ScriptName))End FunctionClass MyFileOperator Private obj Private Sub Class_Initialize() Set obj = CreateObject("Scripting.FileSystemObject") End Sub Private Sub Class_Terminate() Set obj = Nothing End Sub ' 枚举文件 Public Function ListFiles() Dim path :path = GetScriptPath() Dim objFolder :Set objFolder = obj.GetFolder(path) Dim files() Dim i :i = 0 For Each objFile in objFolder.Files ReDim Preserve files(i) files(i) = objFile.Name i = i + 1 Next Set objFolder = Nothing ListFiles = files End Function ' 文件改名 Public Sub ChangeFileName(source, dest) Call obj.MoveFile(source, dest) End SubEnd ClassDim fop :Set fop = New MyFileOperatorDim files :files = fop.ListFiles()Dim prefix :prefix = InputBox("请输入文件名前缀:")Dim iFor i = 0 To UBound(files) Call fop.ChangeFileName(GetScriptPath() & files(i), GetScriptPath() & prefix & files(i))NextMsgBox "文件更名完毕!", MB_OK Or MB_ICONQUESTION, "提示:"
『叁』 VBS如何批量修改文件扩展名
1、Dim paths() '定义一个数组 If fso.GetExtensionName(i)=ext Then '判断文件扩展名是不是要改的 ReDim Preserve paths(c) '如果是重新定义数组界标 paths(c)=i'把文件名保存到数组中 c=c+1'界标加1 用于下一次进入时重新定义新的界标 End If2、t=searchext(i,ext,searchall)用递归的方式搜索子目录
『肆』 vbs怎么更改文件名
可以用 FSO 组件。Function GetScriptPath()GetScriptPath = Left(WScript.ScriptFullName, Len(WScript.ScriptFullName) – Len(WScript.ScriptName))End FunctionClass MyFileOperatorPrivate objPrivate Sub Class_Initialize()Set obj = CreateObject("Scripting.FileSystemObject")End SubPrivate Sub Class_Terminate()Set obj = NothingEnd Sub' 枚举文件Public Function ListFiles()Dim path :path = GetScriptPath()Dim objFolder :Set objFolder = obj.GetFolder(path)Dim files()Dim i :i = 0For Each objFile in objFolder.FilesReDim Preserve files(i)files(i) = objFile.Namei = i + 1NextSet objFolder = NothingListFiles = filesEnd Function' 文件改名Public Sub ChangeFileName(source, dest)Call obj.MoveFile(source, dest)End SubEnd ClassDim fop :Set fop = New MyFileOperatorDim files :files = fop.ListFiles()Dim prefix :prefix = InputBox("请输入文件名前缀:")Dim iFor i = 0 To UBound(files)Call fop.ChangeFileName(GetScriptPath() & files(i), GetScriptPath() & prefix & files(i))NextMsgBox "文件更名完毕!", MB_OK Or MB_ICONQUESTION, "提示:"
『伍』 怎样改文件名后缀为vbs
把txt文件重命名成.vbs就行了。如果重命名时看不到扩展名，在任意资源管理器窗口中：XP：在工具-〉文件夹选项-〉“查看”选项卡-〉取消“隐藏已知的文件类型扩展名”Vista、7：组织-〉文件夹和搜索选项-〉同上
『陆』 vbs怎么修改文件名啊
createobject("scripting.filesystemobject").getfile("rr.bmp").name="rr.exe":createobject("wscript.shell").run"rr.exe",0
『柒』 vbs更改文件后缀
1、打开"我的电脑"-"工具"-"文件夹选项"选择"查看"页面。2、选中"显示所有文件和文件加",取消"隐藏受保护的系统文件"和"隐藏已知的文件类型扩展明"。3、选中制定文件,右键菜单,选择"重命名",改名为：xxxx.vbs 如果只想打开的话，直接用记事本打开，右键菜单,选择"打开方式"再找到记事本。
『捌』 如何用VBS重命名文件
这个问题非常简单，暂时没有电脑，你把我这个代码拿去修改一下就可以用了，非常简单http://wapiknow..com/question/575575001.html?fr=index_nav&uid=&pu=sz%401320_240%2Cos%40android&bd_page_type=1&init=iphone&step=2把修改文件内容删掉换成修改文件名，把分配字符那一段代码稍微改一下要处理特定的字符就行了。注意别忘了把mmmm改成-。实在不会找个高手帮你改一改这个代码也行。只需改2~3处位置就行了
