根据生成的文件夹名生成bat文件并改名

tiantao186

根据生成的文件夹名生成bat文件并改名

醉眼看尘世

1. Sub test()
   
2. Dim fso As Object, folDer, FolDerList, mFile
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. Set FolDerList = fso.GetFolder(ThisWorkbook.Path)
   
5. For Each mFile In FolDerList.Files
   
6.     If mFile Like "*.bat" Then Kill mFile
   
7. Next
   
8. For Each folDer In FolDerList.SubFolders
   
9.     mFile = folDer & ".bat"
   
10.     Open mFile For Output As #1
    
11.     Print #1, "@echo off"
    
12.     Print #1, "Rem"
    
13.     Print #1, "net use \\192.168.1.2 /user:administrator 888888"
    
14.     Print #1, "Rem"
    
15.     Print #1, "start \\192.168.1.2\database" & Split(ThisWorkbook.Path, "")(UBound(Split(ThisWorkbook.Path, ""))) & "" & Split(folDer, "")(UBound(Split(folDer, "")))
    
16.     Close #1
    
17. Next
    
18. End Sub

复制代码

醉眼看尘世

这浏览器不完善，要吃字符。。。
附件中

limonet

Sub limonet()
    CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
    & ";$s=get-content 000.txt;foreach($i in ('" & Join(Application.Transpose(Range("A2:A" _
    & Cells(Rows.Count, 1).End(xlUp).Row)), "','") & "')){md $i;set-content ($i+'.bat') -Value " _
    & "($s+('start \\192.168.1.2\database\批量生成\',$i -join ''))}", 0
End Sub

limonet

关键字：content