今天,有同事提出想批量修改文件名,规则比较简单,在第五位后加“-”即可, 上网没找到相关工具,就自己做了个excel,用宏代码修改. 代码如下: Private Sub CommandButton1_Click() Dim varFileList As Variant MsgBox "选择要重命名文件所在的文件夹,点击确定!" With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = F…
using System; using System.Collections.Generic; using System.IO; using System.Linq; using System.Text; using System.Threading.Tasks; namespace ConsoleApplication2 { class Program { static void Main(string[] args) { DirectoryInfo theFolder = new Direc…
源码: 1 Sub 获取文件夹下所有文本文件() 2 Dim strPath As String 3 strPath = "G:\A\" 4 Dim MyFile As String 5 MyFile = Dir(strPath & "*.txt") 6 Do Until Len(MyFile) = 0 7 Debug.Print strPath & MyFile 8 MyFile = Dir 9 Loop 10 End Sub 效果:…
实例:将 D:/backup 目录下所有后缀名为 “.zip” 的文件替换为 “.exe” 后缀 bat批处理: @echo off rem 不显示执行过程 D: rem 切换至指定盘符 cd D:/backup rem 进入指定文件夹 for /f "tokens=* delims=" %%i in ('dir /b/s *.zip') do ( rem 查找目标文件夹及子文件夹内的所有zip后缀的文件 rename "%%i" "*.exe"…
修改为: # -*- coding: utf-8 -*- import os, sys,re path=u"E:\\C#网络编程基础" dirs=os.listdir(path) for dir in dirs: if os.path.isdir(dir) : newDir= dir.split(u"]")[1].encode("gb2312") #print newDir os.rename(dir,newDir) for dir in dir…