Maison  >  Article  >  interface Web  >  Code VBS pour obtenir les noms de tous les dossiers du répertoire courant

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

高洛峰
高洛峰original
2017-01-16 10:11:051702parcourir

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 !

Déclaration:
Le contenu de cet article est volontairement contribué par les internautes et les droits d'auteur appartiennent à l'auteur original. Ce site n'assume aucune responsabilité légale correspondante. Si vous trouvez un contenu suspecté de plagiat ou de contrefaçon, veuillez contacter admin@php.cn