|
Sub test()
Dim fso, tf, A, p$, f$, i%
Set fso = CreateObject("Scripting.FileSystemObject")
p = ThisWorkbook.Path & "\收货人"
'1层
If fso.FolderExists(p) Then Call fso.DeleteFolder(p)
fso.CreateFolder (p)
'2层
A = Range("a1").CurrentRegion
For i = 2 To UBound(A)
'创建文件夹
f = p & "\" & A(i, 2)
If fso.FolderExists(f) Then Call fso.DeleteFolder(f)
fso.CreateFolder (f)
'创建文本
Set tf = fso.CreateTextFile(f & "\" & A(i, 1) & ".txt", True)
tf.writeline A(i, 3) & "|" & A(i, 2) & "|" & A(i, 4)
tf.Close
Next
End Sub
|
评分
-
查看全部评分
|