vbsTreeVBS腳本怎么模擬tree命令-創(chuàng)新互聯(lián)
這篇文章主要介紹“vbsTree VBS腳本怎么模擬tree命令”，在日常操作中，相信很多人在vbsTree VBS腳本怎么模擬tree命令問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”vbsTree VBS腳本怎么模擬tree命令”的疑惑有所幫助！接下來，請跟著小編一起來學(xué)習(xí)吧！
復(fù)制代碼 代碼如下:
'-------------vbsTree.vbs------------------------
'描述:用vbs輸出一個文件夾的目錄結(jié)構(gòu)。
'------------------------------------------------
Const Unit4Size = "字節(jié)KBMBGB"
Const OutFile = "OutTree.txt"
Dim theApp,SelPath,TreePath,TreeStr
Set theApp = CreateObject("Shell.Application")
Set SelPath = theApp.BrowseForFolder(0,"請選擇需要列出子項目的路徑",0)
If SelPath Is Nothing Then WScript.Quit
TreePath = SelPath.items.Item.Path
Set SelPathPath = Nothing
Set theApp = Nothing
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
TreeStr = TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,""
Set objFile = objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
MsgBox "查看當(dāng)前目錄下的OutTree.txt",vbInformation,"完成 - vbsTree"
Sub Tree(Path,SFSpace)
Dim i,TempStr,FlSpace
FlSpace = SFSpace & " "
Set CrntFolder = objFSO.GetFolder(Path)
i = 0:TempStr = "├─"
For Each ConFile In CrntFolder.Files
i = i + 1
If i = CrntFolder.Files.Count And CrntFolder.SubFolders.Count = 0 Then TempStr = "└─"
TreeStr = TreeStr & FlSpace & Tempstr & ConFile.name & FormatSize(ConFile.size) & vbCrLf
Next
i = 0:TempStr = "├─"
For Each SubFolder In CrntFolder.SubFolders
i = i + 1
If i = CrntFolder.SubFolders.Count Then
TempStr = "└─"
SFSpace = FlSpace & " "
Else
SFSpace = FlSpace & "│"
End If
TreeStr = TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & vbCrLf
Tree SubFolder,(SFSpace)
Next
End Sub
Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i = i + 1
SZ = SZ \ 1024
Loop
FormatSize = " (" & SZ & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function
文件夾瀏覽部分優(yōu)化后的代碼
復(fù)制代碼 代碼如下:
'-------------vbsTree.vbs------------------------
'描述:用vbs輸出一個文件夾的目錄結(jié)構(gòu)。
'------------------------------------------------
Const Unit4Size = "字節(jié)KBMBGB"
Const OutFile = "OutTree.txt"
Dim TreePath,TreeStr,WS
Set WS = WScript.CreateObject("WScript.Shell")
TreePath = BFF("請選擇需要列出子項目的路徑",&H0001 + &H0008 + &H0010,"")
Set WS = Nothing
If Len(TreePath) = 0 Then WScript.Quit
If Len(TreePath) <= 3 Then MsgBox "無法處理根目錄！",64,"提示":WScript.Quit
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
TreeStr = TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,""
Set objFile = objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
MsgBox "查看當(dāng)前目錄下的OutTree.txt",vbInformation,"完成 - vbsTree"
Sub Tree(Path,SFSpace)
Dim i,TempStr,FlSpace
FlSpace = SFSpace & " "
Set CrntFolder = objFSO.GetFolder(Path)
i = 0:TempStr = "├─"
For Each ConFile In CrntFolder.Files
i = i + 1
If i = CrntFolder.Files.Count And CrntFolder.SubFolders.Count = 0 Then TempStr = "└─"
TreeStr = TreeStr & FlSpace & Tempstr & ConFile.name & FormatSize(ConFile.size) & vbCrLf
Next
i = 0:TempStr = "├─"
For Each SubFolder In CrntFolder.SubFolders
i = i + 1
If i = CrntFolder.SubFolders.Count Then
TempStr = "└─"
SFSpace = FlSpace & " "
Else
SFSpace = FlSpace & "│"
End If
TreeStr = TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & vbCrLf
Tree SubFolder,(SFSpace)
Next
End Sub
Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i = i + 1
SZ = SZ \ 1024
Loop
FormatSize = " (" & SZ & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function
Function BFF(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, oStr
Set oShell = WScript.CreateObject("Shell.Application")
Set oItem = oShell.BrowseForFolder(&H0, title, flag, dir)
oStr = oItem.Title
If Err <> 0 Then
Set oShell = Nothing
Set oItem = Nothing
Exit Function
End If
If InStr(oStr, ":") Then
BFF = mid(oStr,InStr(oStr, ":")-1, 2)
Else
Select Case oStr
Case "桌面"
BFF = WS.SpecialFolders("Desktop")
Case "我的文檔"
BFF = WS.SpecialFolders("MyDocuments")
Case "我的電腦"
MsgBox "無效目錄！",64,"提示":WScript.Quit
Case "網(wǎng)上鄰居"
MsgBox "無效目錄！",64,"提示":WScript.Quit
Case Else
BFF = oItem.ParentFolder.ParseName(oItem.Title).Path
End Select
End If
Set oShell = Nothing
Set oItem = Nothing
If Right(BFF,1)<> "\" Then
BFF = BFF & "\"
End If
On Error GoTo 0
End Function
到此，關(guān)于“vbsTree VBS腳本怎么模擬tree命令”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識，請繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會繼續(xù)努力為大家?guī)砀鄬嵱玫奈恼拢?/p>
當(dāng)前名稱：vbsTreeVBS腳本怎么模擬tree命令-創(chuàng)新互聯(lián)
標(biāo)題來源：http://muchs.cn/article8/djggip.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供ChatGPT、電子商務(wù)、微信小程序、品牌網(wǎng)站設(shè)計、面包屑導(dǎo)航、Google
聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容
- 用Python處理HTML轉(zhuǎn)義字符的5種方式-創(chuàng)新互聯(lián)
- 使用python怎么定時復(fù)制遠(yuǎn)程文件夾中的所有文件-創(chuàng)新互聯(lián)
- 如何解決linux下fsevents模塊引起的npmls報錯的問題-創(chuàng)新互聯(lián)
- Memcached怎么在PHP中使用-創(chuàng)新互聯(lián)
- 如何在兩個月的時間內(nèi)發(fā)表一篇EI/SCI論文-我的時間管理心得-創(chuàng)新互聯(lián)
- laravel怎樣驗證數(shù)據(jù)規(guī)則-創(chuàng)新互聯(lián)
- php如何定義變量-創(chuàng)新互聯(lián)
- 動態(tài)網(wǎng)站是什么？動態(tài)好還是靜態(tài)好 2014-12-09
- 為什么說網(wǎng)站偽靜態(tài)更有利于優(yōu)化? 2015-05-16
- 靜態(tài)URL還是動態(tài)URL將極有可能決定網(wǎng)站的未來價值 2015-08-21
- 偽靜態(tài)與動態(tài)頁面對于網(wǎng)站SEO優(yōu)化的影響 2013-04-24
- 為什么SEO優(yōu)化一定要用靜態(tài)網(wǎng)頁？ 2015-05-11
- 為什么靜態(tài)網(wǎng)頁更有利于搜索引擎收錄 2016-11-04
- 智能生成靜態(tài)HTM與傳統(tǒng)ASP頁面的區(qū)別 2016-10-30
- 偽靜態(tài)利于百度收錄嗎？ 2014-02-03
- 為什么眾多SEO強調(diào)頁面靜態(tài)化? 2014-09-04
- 淺析靜態(tài)、動態(tài)、偽靜態(tài)網(wǎng)站之間的區(qū)別是什么？ 2016-09-26
- 網(wǎng)站建設(shè)選擇動態(tài)還是靜態(tài)頁面好 2013-10-08
- 企業(yè)應(yīng)選擇靜態(tài)網(wǎng)站，還是動態(tài)網(wǎng)站設(shè)計？ 2016-08-11