ppt怎么统一加前缀

1.如何统一添加文件名前缀

Dim strPath As String, strFile As String, strNewFile As String

strPath = "C:\test\ "

strFile = Dir(strPath & "*.* ")

Do Until strFile = " "

strNewFile = strPath & "prifix " & strFile

Name strPath & strFile As strNewFile

strFile = Dir

Loop

懂？不懂我也没办法，

2.office高手 请问如何在所有的excel（或者Word或者ppt文件）文件名字

可用DOS命令实现。

1、先把所有需要改名的任意文件（包括EXCEL、WORD等，什么文件都可以）放到一个文件夹，比如D盘下的AAA文件夹。

2、开始——运行——CMD

然后在弹出的DOS窗口输入：

rename D:\AAA\*.* ？？？？？？？？？？？？？——经理班.*

敲回车即可。

注意DOS窗口下可以按CTRL+空格来切换成中文输入法。

另外注意一个？号代表一个英文字符的位置，所以如果你有的文件名很长的话，那你的？号就应该有很多个，比如你的文件名有十个中文字，那你的问号就应该要有20个。问号多了不会影响短的文件名，而问号少了那些长文件名就会被截掉后面的，所以尽量多问号吧。

补充：

我重新测试了下，命令没有问题的，不过原来的一个*号应该改为多个？号。如果你运行命令报错应该是你没输入正确。

请留意rename与D：之间有个空格，*.*与？？？？？？？？？？？——经理班.*之间也有个空格。

另外除了“——经理班”外，其他字符请在英文模式下输入。