Excel存放大量路径，要复制出这些路径的文件

问题描述：存放大量地址的文档是Excel格式，要把同一行的地址的文件放在同一个文件夹中。

解决思路：

给出的格式是/sp/img/20**/0*/**/20**0***1341**_*****119780206002X_020.jpg这种

首先先把Excel另存为txt格式，然后用word打开txt文件，用批量替换（Ctrl+H）把制表符（^t）换成回车（^p），再把回车（^p）换为回车+盘符（^pf:），之后保存，即可得到每行都是地址的txt文件。

然后写VBScript代码如下：

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("C:\Users\Administrator\Desktop\20152.txt", 1 , TRUE)

for i = 1 to 58
fso.CreateFolder "C:\Users\Administrator\Desktop\身份证照片\"&i
data = MyFile.ReadLine
fso.CopyFile data,"C:\Users\Administrator\Desktop\身份证照片\"&i&"\",true
data = MyFile.ReadLine
fso.CopyFile data,"C:\Users\Administrator\Desktop\身份证照片\"&i&"\",true
next

思路延伸：

循环的次数，即是一开始Excel的行数。这里，可以用ReadLine探索到文本的结束自动结束循环。

地址过于冗长，该替换为存储字符串的变量。