VBS自编写脚本。（实现批量修改文件名且在执行前，备份原有文件夹中的文件）

‘==========================================================================
‘
‘ VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
‘
‘ NAME:
‘
‘ AUTHOR: Microsoft , Microsoft
‘ DATE : 2014/7/9
‘
‘ COMMENT: ‘批量修改文件夹下对应的所有文件名
‘
‘==========================================================================
‘选择我的电脑作为根目录，来选择目录

‘ Const MY_COMPUTER = &H11&
‘ Const WINDOW_HANDLE = 0
‘ Const OPTIONS = 0
‘
‘ Set objShell = CreateObject("Shell.Application")
‘ Set objFolder = objShell.Namespace(MY_COMPUTER)
‘ Set objFolderItem = objFolder.Self
‘ strPath = objFolderItem.Path
‘
‘ Set objShell = CreateObject("Shell.Application")
‘ Set objFolder = objShell.BrowseForFolder _
‘ (WINDOW_HANDLE, "Select a folder:", OPTIONS, strPath)
‘
‘ If objFolder Is Nothing Then
‘ Wscript.Quit
‘ End If
‘
‘ Set objFolderItem = objFolder.Self
‘ objPath = objFolderItem.Path
‘
‘ MsgBox objPath

‘===================================================================
‘选择指定盘符下的目录
‘ Const WINDOW_HANDLE = 0
‘ Const OPTIONS = 0
‘
‘ Set objShell = CreateObject("Shell.Application")
‘ Set objFolder = objShell.BrowseForFolder _
‘ (WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:\")
‘
‘ If objFolder Is Nothing Then
‘ Wscript.Quit
‘ End If
‘
‘ Set objFolderItem = objFolder.Self
‘ objPath = objFolderItem.Path
‘
‘ MsgBox objPath

‘=========================================================================
‘定义变量

dim file_path,prefix_name,suffix_name,repeat_name,repeat_edit
Dim OneLine,TwoLine,ThreeLine,FourLine,FiveLine
i=0

file_path = "C:\Users\Administrator\Desktop\1\music"‘目标文件夹的路径
dst_file_path="C:\Users\Administrator\Desktop\1\music_bak"

‘-----得到文件夹路径，且打开配置文件
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.getfolder(file_path)
Set fs = folder.files
Set file=fso.OpenTextFile("E:\PRACTICE\VBS\config.ini",1)

‘----------------在操作前，备份一下原有的文件

fso.CopyFolder file_path,dst_file_path,True

‘----------------------------------
‘取出第一行中的两个数
OneLine=file.ReadLine
OneLineStr=Split(OneLine,"=")
OneLineCount=UBound(split(OneLine,"="))

For i1=0 To OneLineCount
WScript.Echo OneLineStr(i1)
Next
‘-------------------------------------
‘取出第二行中的两个数
TwoLine=file.ReadLine
TwoLineStr=Split(TwoLine,"=")
TwoLineCount=UBound(split(TwoLine,"="))

For i2=0 To TwoLineCount

WScript.Echo TwoLineStr(i2)
Next
‘-------------------------------------------
‘取出第三行中的两个数
ThreeLine=file.ReadLine
ThreeLineStr=Split(ThreeLine,"=")
ThreeLineCount=UBound(split(ThreeLine,"="))

For i3=0 To ThreeLineCount
WScript.Echo ThreeLineStr(i3)
Next
‘-------------------------------------------
‘取出第四行中的两个数
FourLine=file.ReadLine
FourLineStr=Split(FourLine,"=")
FourLineCount=UBound(split(FourLine,"="))

For i4=0 To FourLineCount
WScript.Echo FourLineStr(i4)
Next

‘-----------------------------------------
‘取出第五行中的两个数
FiveLine=file.ReadLine
FiveLineStr=Split(FiveLine,"=")
FiveLineCount=Ubound(split(FiveLine,"="))

For i5=0 To FiveLineCount
WScript.Echo FiveLineStr(i5)
Next

‘---------------------------------------------
‘调用过程
Function_Main()
Function Function_Main()

If OneLineStr(1)="true" Then

Function_Prefix_Name()

Elseif OneLineStr(1)="false" Then

Function_Suffix_Name()

Elseif OneLineStr(1)="number" Then

Function_Number_Value()

Elseif OneLineStr(1)="array" Then

Function_MyArrayReName()

Elseif OneLineStr(1)="" Then

WScript.Quit

End If

End Function
‘-----------------------------------------
‘在原有名称前增加前缀
Function Function_Prefix_Name()

For Each file in fs

File.Name=TwoLineStr(1)&File.Name

Next

End Function

‘--------------------------------------
‘在原有名称前增加后缀
Function Function_Suffix_Name()

For Each file in fs

Name=Mid(file.name,1,instrrev(file.name,".")-1) ‘取到.号前面的文件名
Format=Mid(file.name,instrrev(file.name,".")) ‘取到.号后面的后缀格式
file.Name=Name&ThreeLineStr(1)&Format

Next

End Function

‘--------------------------------------------
‘在原有名称前增加有序自增数字
Function Function_Number_Value()

For Each file In fs

FourLineStr(1)=FourLineStr(1)+1
file.name=FourLineStr(1)&file.name

Next

End Function
‘Function_Suffix_Name()

‘--------------------------------------------------
‘批量更改名称
Function_MyArrayReName()

Function Function_MyArrayReName()

Const BeforAlarm="发生犯人暴狱，请注意观察"
Const AfterAlarm="发生犯人暴狱，各小组按预案处置"
Dim MyArray(12)
n=1
y=0
For i=0 To 12
If i=11 Then

MyArray(i)="监门哨"

Elseif i=12 Then

MyArray(i)="自卫哨"

Else

MyArray(i)=n&"号哨"
n=n+1
End If

WScript.Echo MyArray(i)
Next

For Each file In fs

Format=Mid(file.name,instrrev(file.name,"."))
‘MsgBox Format
‘MsgBox MyArray(y)

If FiveLineStr(1)="before" Then

file.name=MyArray(y)&BeforAlarm&Format

Elseif FiveLineStr(1)="after" Then

file.name=MyArray(y)&AfterAlarm&Format

Else

MsgBox "请先设置是确认前还是确认后!",,"提示"

WScript.Quit

End If

y=y+1
WScript.Echo file.name

Next

End Function

‘=======================================================================

‘ If prefix_name <> "" then‘批量加前缀
‘ For each f in fs
‘ f.name = prefix_name&f.name
‘ Next
‘ End If
‘
‘ if suffix_name <> "" then‘批量加后缀
‘ For each f in fs
‘ name = Mid(f.name,1,InstrRev(f.name,".")-1)
‘ format = Mid(f.name,InstrRev(f.name,"."))
‘ f.name = name & suffix_name & format
‘ Next
‘ end If
‘
‘ if repeat_name <> "" then‘批量删除相同字符
‘ For each f in fs
‘ On Error Resume Next
‘ f.name = Replace(f.name,repeat_name,repeat_edit)
‘ Next
‘ end If
‘ ‘-----文件操作结束
‘
‘ set fso = nothing‘释放内存
‘
‘ MsgBox("完成！")

VBS自编写脚本。（实现批量修改文件名且在执行前，备份原有文件夹中的文件）

时间： 2024-10-06 02:30:45

VBS自编写脚本。（实现批量修改文件名且在执行前，备份原有文件夹中的文件）的相关文章

shell脚本：批量修改文件名(删除文件名中字符)

shell脚本:批量修改文件名(文件名中添加字符) 上一篇写过批量修改文件名(文件名中添加字符),工作中还存在这样的需求,批量修改文件名,删除文件名中的某些字符: 举例如下:批量改名,删除文件名中多余字符 目录下文件名为如下,要求去掉_finished. stu_102999_1_finished.jpg stu_102999_2_finished.jpg stu_102999_3_finished.jpg stu_102999_4_finished.jpg stu_102999_5_finis

OpenCV C++ 计算文件夹中对象文件数目及批量处理

1 //采用windows控制台实现计算文件夹中对象总数以及批量读取对象 2 3 //#include <afx.h> //和windows.h是一样的作用 4 #include <opencv2/opencv.hpp> 5 #include <windows.h> 6 7 using namespace cv; 8 using namespace std; 9 10 int main() 11 { 12 int count = 1; //记录文件夹中对象数目 13 1

linux批量替换指定文件夹中所有文件的指定内容

命令:sed -i "s#https#http#g" `grep http -rl VEROMODA` 功能:用来替换当前目录VEROMODA文件夹及子文件夹中所有文件中的https为http. 说明: -i 表示inplace edit,就地修改文件 -r 表示搜索子目录 -l 表示输出匹配的文件名 原文地址:https://www.cnblogs.com/lxxhome/p/8393650.html

shell脚本：批量修改文件名(文件名中添加字符)

举例如下:批量创建10个随机字符串的文件,要求每个文件名后面添加_aaa,后缀名不变: [[email protected] goodboy]# ls adddbbdedf.html  baacjaiija.html  bhcfaabcfh.html  dgjdcdfbca.html  efejadfdji.html agdhcdeaje.html  bgffbffjcg.html  cbbiebdafh.html  diadebbhag.html  jcajafgejf.html 脚本1: [

Shell脚本递归打印指定文件夹中全部文件夹文件

#!/bin/bash #递归打印当前文件夹下的全部文件夹文件. PRINTF() { ls $1 | while read line #一次读取每一行放到line变量中 do [ -d $1/$line ] && { DIR="$1/$line" echo $DIR } DIR1=`dirname $DIR` #求路径. A=`ls -F $DIR1 | grep / | grep "\<$line\>"` #推断line是不是一个文件

Python实现批量修改文件名

注意: 文件夹下都是同类型的文件 需自行修改路径.文件名后缀 代码: import os import sys fileList = os.listdir(r"C:\Users\T470\Desktop\TEST") # (路径需修改) print("修改前:" + str(fileList)) # 输出此文件夹中包含的所有文件名称 currentpath = os.getcwd() # 得到进程当前工作目录 os.chdir(r"C:\Users\T47

shell脚本从文件夹中递归提取文件

需求 前两天碰到需要在十层左右的文件夹中提取文件的需求,于是写了此脚本. 如下面这样的文件结构: dir1 ├── a │ ├── b │ │ └── file1 │ └── file2 ├── c │ └── d │ ├── e │ │ └── file4 │ └── file3 └── file5 我们需要将其中的file1~file5提取出来放到另一个文件夹中. 脚本 脚本getfilefromdir.sh如下: #!/bin/bash #desc: get file from direc

Linux中批量修改文件名

有时候我们有一个目录下面的文件名都需要重新命令 如: 以下有十个学生完成的脚本,现在需要将finish改为ing [[email protected] test]# touch student_{01..10}_finish.sh [[email protected] test]# ls student_* student_01_finish.sh  student_03_finish.sh  student_05_f student_02_finish.sh  student_04_finis

Linux下批量修改文件名(rename)

原文地址: http://blog.csdn.net/sea_shore/article/details/6102437 1.rename命令批量修改文件名, 其实linux下可以使用别的办法来批量修改文件名, 不过rename实在太方便了 比如把所有的表为cdb1_* 修改为cdb_*的在本目录下只需要# rename 'cdb1' 'cdb' * 以前都是写个for循环来做...想想多傻啊, 呵呵 rename还有更多的功能, 建议man rename下 From:http://www.ha