1. 首页
  2. 问答
  3. 文件夹子目录“目录”清单

文件夹子目录“目录”清单

2016-09-25 193 views
1

我没有脚本/编码经验。文件夹子目录“目录”清单

我的目标是：

创建一个脚本（VBS，PowerShell中，CMD.bat），将动态创建的闪存驱动器的目录。

此闪存驱动器将用于多台机器，因此驱动器号不会是静态的。

我需要的是闪存驱动器的动态目录（仅子文件夹）。

我已经试过

dir /a:d /s /b | sort

其中提出的输出过大而笨重阅读

我试图创建一个递归PowerShell脚本

Get-ChildItem -Recurse | ?{ $_.PSIsContainer }

它是干净多了，但没有更接近我所需要的。

我stubmled翻过

Get-ChildItem | where {$_.PsIsContainer} | Select-Object Name | 
Export-Csv onlyFiles.csv

这是多接近我正在寻找，但对我的生活，我不能让它“递归”。

有没有修改这个代码的一种方式，以便1）它的递归和2）这只是subolders。

说实话，我很乐意Get-ChildItem -Recurse | ?{ $_.PSIsContainer }命令只是子文件夹。

是我想要的，还是我的触及范围超出了我的把握？

非常感谢您的努力和信息。

=============

内容表必须是这样的：

根：\

根：\ Dir_n1

根：\ Dir_n1 \ Dir_n2 \

根：\ Dir_N1 \ Dir_n2 \ Dir_n3

来源

2016-09-25 noah1

+0

您必须在cmdlet名称后面添加'-Recurse'参数'Get-ChildItem -Recurse' – user4317867

+3

您能描述一下您认为您的“目录”的理想状态吗？文件夹名称是否应根据嵌套级别/深度缩进？ –

+0

查看['tree']（http://ss64.com/nt/tree.html）命令... – aschipfl

回答

0

Dir2Html.vbs生成文件和文件夹列表中的HTML与树：

Option Explicit 
Dim oFilesys,oFiletxt,Path,Ws,SourceImgFolder,StartTime,MsgTitre,DurationTime,objFolder,CheminDossier,Dossier,Copyright 
Dim SizeKo,SizeMo,SizeGo,objShell,size,Sig,OutFile,MsgAttente,oExec,Temp 
Copyright = "© Hackoo © 2014" 
Set ws = CreateObject("wscript.Shell") 
Temp = ws.ExpandEnvironmentStrings("%Temp%") 
MsgTitre = "Generer une arborescence d'un dossier en HTML "&Copyright&"" 
MsgAttente = "Veuillez patienter un peu la generation est en cours..." 
Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier "&Copyright, 1, "c:\Programs") 
If objFolder Is Nothing Then 
    WScript.Quit 
End If 
CheminDossier = objFolder.self.path 
OutFile = objFolder.self.name &".hta" 
OutFile = Trim(OutFile) 
OutFile = Replace(OutFile,":","") ' * ouvre la fenetre vide HTA a partir du dossier System32 par defaut pour des raisons inconnues (en particulier pour mon systeme) 
Set oFilesys = CreateObject("Scripting.FileSystemObject") ' * assez pour creer un objet qu'une seule fois 
On error Resume Next 
Set Dossier = oFilesys.GetFolder(CheminDossier) 
If Err <> 0 Then 
    MsgBox Err.Number & VbCrLF & Err.Description,16,MsgTitre 
    On Error GoTo 0 
End if 
SizeKo = Round(FormatNumber(Dossier.Size)/(1024),2) & " Ko" 'Taille en Ko avec 2 chiffres apres la Virgule 
SizeMo = Round(FormatNumber(Dossier.Size)/(1048576),2) & " Mo" 'Taille en Mo avec 2 chiffres apres la Virgule 
SizeGo = Round(FormatNumber(Dossier.Size)/(1073741824),2) & " Go" 'Taille en Go avec 2 chiffres apres la Virgule 

If Dossier.size < 1024 Then 
    Size = Dossier.size & " Octets" 
elseif Dossier.size < 1048576 Then 
    Size = SizeKo 
elseif Dossier.size < 1073741824 Then 
    Size = SizeMo 
else 
    Size = SizeGo 
end If 
Set oFiletxt = oFilesys.CreateTextFile(OutFile,True,-1) 
Set Ws = CreateObject("Wscript.Shell") 

oFiletxt.WriteLine("<html><HTA:APPLICATION SCROLL=""yes"" WINDOWSTATE=""Maximize""icon=""verifier.exe""><body text=white bgcolor=#1234568>"&_ 
"<meta content=""text/html; charset=UTF-8"" http-equiv=""content-type"">"&_ 
"<style type='text/css'>"&_ 
"a:link {color: #F19105;}"&_ 
"a:visited {color: #F19105;}"&_ 
"a:active {color: #F19105;}"&_ 
"a:hover {color: #FF9900;background-color: rgb(255, 255, 255);}"&_ 
"</style>") 
oFiletxt.writeline "<SCRIPT LANGUAGE=""VBScript"">" 
oFiletxt.writeline "Function Explore(filename)" 
oFiletxt.writeline "Set ws=CreateObject(""wscript.Shell"")" 
oFiletxt.writeline "ws.run ""Explorer /n,/select,""&filename&""""" 
oFiletxt.writeline "End Function" 
oFiletxt.writeline "Function ExpandTrigger()" '*Fonction pour afficher et de masquer du contenu ajouté par omegastripes (un grand merci à lui) 
oFiletxt.writeline " With Window.Event.SrcElement" 'http://www.visualbasicscript.com/fb.ashx?m=104343 
oFiletxt.writeline "  If .FirstChild.NodeValue = ""+"" Then" 
oFiletxt.writeline "   .FirstChild.NodeValue = ""–""" 
oFiletxt.writeline "   .NextSibling.NextSibling.NextSibling.Style.Display = ""inline""" 
oFiletxt.writeline "  Else" 
oFiletxt.writeline "   .FirstChild.NodeValue = ""+""" 
oFiletxt.writeline "   .NextSibling.NextSibling.NextSibling.Style.Display = ""none""" 
oFiletxt.writeline "  End If" 
oFiletxt.writeline " End With" 
oFiletxt.writeline "End Function" 
oFiletxt.writeline "</SCRIPT>" 
Sig = "<center><hr><img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_ 
Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_ 
Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_ 
Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_ 
Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_ 
Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_ 
Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_ 
Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_ 
Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_ 
Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_ 
Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img><hr></center>" 
SourceImgFolder = "http://www.webmasters.by/images/articles/css-tree/folder-horizontal.png" 
'"http://upload.wikimedia.org/wikipedia/commons/a/a4/Icons-mini-folder.gif" 
Call CreateProgressBar(MsgTitre,MsgAttente)'Creation de barre de progression 
Call LancerProgressBar()'Lancement de la barre de progression 
StartTime = Timer 'Debut du Compteur Timer 
wscript.sleep 5000 
oFiletxt.WriteLine("<span onclick='ExpandTrigger' style='cursor: pointer;'>+</span><span> <img src="&SourceImgFolder&"><A href=""#"" OnClick='Explore("""& CheminDossier & """)'>" & CheminDossier & "</A><font color=""Yellow"">&nbsp;&nbsp;["&Size&"]</font></span><br>") ' * l'obtention de la structure necessaire pour la fonction 
oFiletxt.WriteLine("<div style='display: none;'>") 
List(CheminDossier) 
oFiletxt.WriteLine("</div>") 
oFiletxt.WriteLine(Sig) 
oFiletxt.WriteLine("</body></hmtl>") 
oFiletxt.Close 
Call FermerProgressBar()'Fermeture de barre de progression 
DurationTime = FormatNumber(Timer - StartTime, 0) & " seconds." 'La duree de l'execution du script 
Ws.Popup "La generation au format HTML est terminee en "& DurationTime & " !","2",MsgTitre,64 
Ws.Run DblQuote(OutFile), 1, True ' * apres l'utilisation 
'oFilesys.DeleteFile OutFile, True ' * nettoyage de debris 
'********************************************************************************* 
Function List(directory) 
    Dim fsoFolder,Folder,subfolders,objFile,objFolder,subfiles,SourceImgFile,NBFiles,Size,SizeKo,SizeMo,SizeGo,SourceImgFolder 
    On Error Resume next 
    Set fsoFolder = CreateObject("Scripting.FileSystemObject") 
    Set folder = fsoFolder.GetFolder(directory) 
    Set subfolders = folder.SubFolders 
    Set subfiles = folder.Files 
    SourceImgFolder = "http://www.webmasters.by/images/articles/css-tree/folder-horizontal.png" 
    '"http://upload.wikimedia.org/wikipedia/commons/a/a4/Icons-mini-folder.gif" 
    SourceImgFile = "http://upload.wikimedia.org/wikipedia/en/d/d8/VBSccript_file_format_icon.png" 
    NBFiles = 0 
    For each objFile in subfiles 
     NBFiles = NBFiles + 1 
     SizeKo = Round(FormatNumber(objFile.Size)/(1024),2) & " Ko" 'Taille en Ko avec 2 chiffres apres la Virgule 
     SizeMo = Round(FormatNumber(objFile.Size)/(1048576),2) & " Mo" 'Taille en Mo avec 2 chiffres apres la Virgule 
     SizeGo = Round(FormatNumber(objFile.Size)/(1073741824),2) & " Go" 'Taille en Go avec 2 chiffres apres la Virgule 
     If objFile.size < 1024 Then 
      Size = objFile.size & " Octets" 
     elseif objFile.size < 1048576 Then 
      Size = SizeKo 
     elseif objFile.size < 1073741824 Then 
      Size = SizeMo 
     else 
      Size = SizeGo 
     end If 
     oFiletxt.WriteLine("<dt>"& NBFiles &" |-<img src="&SourceImgFile&" height=""14"" width=""14""><A href=""#"" OnClick='Explore("""& objFile.Path & """)'>" & objFile.Name & "</A>&nbsp;&nbsp;("&Size&")</dt><br>") 
    Next 

    For each objFolder in subfolders 
     SizeKo = Round(FormatNumber(objFolder.Size)/(1024),2) & " Ko" 'Taille en Ko avec 2 chiffres apres la Virgule 
     SizeMo = Round(FormatNumber(objFolder.Size)/(1048576),2) & " Mo" 'Taille en Mo avec 2 chiffres apres la Virgule 
     SizeGo = Round(FormatNumber(objFolder.Size)/(1073741824),2) & " Go" 'Taille en Go avec 2 chiffres apres la Virgule 

     If objFolder.size < 1024 Then 
      Size = objFolder.size & " Octets" 
     elseif objFolder.size < 1048576 Then 
      Size = SizeKo 
     elseif objFolder.size < 1073741824 Then 
      Size = SizeMo 
     else 
      Size = SizeGo 
     end If 
     oFiletxt.WriteLine("<DL><hr>") 
     oFiletxt.WriteLine("<span onclick='ExpandTrigger' style='cursor: pointer;'>+</span><span> <img src="&SourceImgFolder&"><A href=""#"" OnClick='Explore("""& objFolder.Path & """)'>" & objFolder.Path & "</A>&nbsp;&nbsp;<font color=""Yellow"">["&Size&"]</font></span><br>") ' * l'obtention de la structure necessaire pour la fonction 
     oFiletxt.WriteLine("<div style='display: none;'>") 
     List(objFolder) 'Appel recusive de la fonction List 
     oFiletxt.WriteLine("</div>") 
     oFiletxt.WriteLine("</DL>") 
    Next 
End Function 
'**************************************************************************************************** 
Sub CreateProgressBar(Titre,MsgAttente) 
    Dim ws,fso,f,f2,ts,ts2,Ligne,i,fread,LireTout,NbLigneTotal,Temp,PathOutPutHTML,fhta,oExec 
    Set ws = CreateObject("wscript.Shell") 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Temp = WS.ExpandEnvironmentStrings("%Temp%") 
    PathOutPutHTML = Temp & "\Barre.hta" 
    Set fhta = fso.OpenTextFile(PathOutPutHTML,2,True) 
    fhta.WriteLine "<HTML>" 
    fhta.WriteLine "<HEAD>" 
    fhta.WriteLine "<Title> " & Titre & "</Title>" 
    fhta.WriteLine "<HTA:APPLICATION" 
    fhta.WriteLine "ICON = ""magnify.exe"" " 
    fhta.WriteLine "BORDER=""THIN"" " 
    fhta.WriteLine "INNERBORDER=""NO"" " 
    fhta.WriteLine "MAXIMIZEBUTTON=""NO"" " 
    fhta.WriteLine "MINIMIZEBUTTON=""NO"" " 
    fhta.WriteLine "SCROLL=""NO"" " 
    fhta.WriteLine "SYSMENU=""NO"" " 
    fhta.WriteLine "SELECTION=""NO"" " 
    fhta.WriteLine "SINGLEINSTANCE=""YES"">" 
    fhta.WriteLine "</HEAD>" 
    fhta.WriteLine "<BODY text=""white""><CENTER><DIV><SPAN ID=""ProgressBar""></SPAN>" 
    fhta.WriteLine "<span><marquee DIRECTION=""LEFT"" SCROLLAMOUNT=""3"" BEHAVIOR=ALTERNATE><font face=""Comic sans MS"">" & MsgAttente &"</font></marquee></span></DIV></CENTER></BODY></HTML>" 
    fhta.WriteLine "<SCRIPT LANGUAGE=""VBScript""> " 
    fhta.WriteLine "Set ws = CreateObject(""wscript.Shell"")" 
    fhta.WriteLine "Temp = WS.ExpandEnvironmentStrings(""%Temp%"")" 
    fhta.WriteLine "Sub window_onload()" 
    fhta.WriteLine " CenterWindow 430,90" 
    fhta.WriteLine " Self.document.bgColor = ""Orange"" " 
    fhta.WriteLine " End Sub" 
    fhta.WriteLine " Sub CenterWindow(x,y)" 
    fhta.WriteLine " Dim iLeft,itop" 
    fhta.WriteLine " window.resizeTo x,y" 
    fhta.WriteLine " iLeft = window.screen.availWidth/2 - x/2" 
    fhta.WriteLine " itop = window.screen.availHeight/2 - y/2" 
    fhta.WriteLine " window.moveTo ileft,itop" 
    fhta.WriteLine "End Sub" 
    fhta.WriteLine "</script>" 
    fhta.close 
End Sub 
'********************************************************************************************** 
Sub LancerProgressBar() 
    Set oExec = Ws.Exec("mshta.exe " & Temp & "\Barre.hta") 
End Sub 
'********************************************************************************************** 
Sub FermerProgressBar() 
    oExec.Terminate 
End Sub 
'********************************************************************************************** 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'**********************************************************************************************

来源

2016-09-26 06:25:15 Hackoo

0

我已经找到了正确的命令，扑我的头靠在墙上，直到鸡蛋打破后。

Get-ChildItem **** | ？{$ _。PSIsContainer} |选择对象FullName | out-string -Width 255> Table_of_Contents。txt

感谢您的帮助和帮助。

来源

2016-09-26 18:44:48 noah1

相关问题

 相关问题