Maison > Article > interface Web > 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 !