using System; using System.Collections.Generic; using System.Text; namespace ClientPrintServer.Tools { public class CopyFilesKit { /// <summary> /// 拷贝文件夹到指定文件夹并更改文件夹名称 /// </summary> /// <param name="srcPath">源文件夹</param>
今天,有同事提出想批量修改文件名,规则比较简单,在第五位后加“-”即可, 上网没找到相关工具,就自己做了个excel,用宏代码修改. 代码如下: Private Sub CommandButton1_Click() Dim varFileList As Variant MsgBox "选择要重命名文件所在的文件夹,点击确定!" With Application.FileDialog(msoFileDialogFolderPicker) .AllowMultiSelect = F