Code VBS pour obtenir les noms de tous les dossiers du répertoire courant

VBS obtient les noms de tous les dossiers du répertoire actuel, à l'exclusion des sous-dossiers. Je souhaite gérer chaque dossier, il est donc préférable d'utiliser la sortie en boucle.

Lors du test, assurez-vous qu'il y a un dossier dans le répertoire actuel, sinon la sortie sera vide.

Set ws=WScript.CreateObject("wscript.shell")
w=ws.CurrentDirectory
Set fso=WScript.CreateObject("scripting.filesystemobject")
Set fs=fso.GetFolder(w)
Set f=fs.SubFolders
For Each uu In f
t=t & uu.Path & vbcrlf
Next
MsgBox t

Pour plus d'articles sur le code VBS afin d'obtenir les noms de tous les dossiers du répertoire actuel, veuillez faire attention au site Web PHP chinois !