Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft DIR mais en VB sous tout les repertoires

DIR mais en VB sous tout les repertoires

5 réponses
Avatar
Scripting Man
J'essais de reproduire comme le fameux dir de dos mais en vb mais je ne peu
pas aller a plus d'un directory.

voici mon code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder ("z:\sources")

For Each objFile In objFolder.Files
WScript.Echo objFile.Path ' & " " & objFile.Size & " " &
objFile.DateLastModified
Next
WScript.Echo "Number of files: " & objFolder.Files.Count



Il me manque quelque choses pour pourvoir continuer plus bas
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fred
Bonsoir

"Scripting Man" a écrit dans le message de news:

J'essais de reproduire comme le fameux dir de dos mais en vb mais je ne
peu pas aller a plus d'un directory.

voici mon code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder ("z:sources")



Dir objFolder
WScript.Quit

Sub Dir(objFolder)
For each objSubFolder In objFolder.SubFolders
Dir(objSubFolder)
Next

For Each objFile In objFolder.Files
WScript.Echo objFile.Path ' & " " & objFile.Size & " " &
objFile.DateLastModified
Next
WScript.Echo "Number of files: " & objFolder.Files.Count


End Sub




Il me manque quelque choses pour pourvoir continuer plus bas


Avec les ajouts cela devrait fonctionner.

Avatar
sympatix
Bonsoir !

Petit rectif, si je peux très modestement me permettre:
L'appel d'une Sub se fait, soit avec les paramètres entre parenthèses, avec
call, soit sans call, et sans parenthèses:

1: Call Ma_Sub (Paramètres)
ou
2: Ma_Sub Paramètres

Donc, ici, par exemple:
Dir(objSubFolder)
devient:
Dir objSubFolder
--
Cordialement
Sympatix

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)
"Fred" a écrit dans le message de news:


Bonsoir

"Scripting Man" a écrit dans le message de news:

J'essais de reproduire comme le fameux dir de dos mais en vb mais je ne
peu pas aller a plus d'un directory.

voici mon code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder ("z:sources")



Dir objFolder
WScript.Quit

Sub Dir(objFolder)
For each objSubFolder In objFolder.SubFolders
Dir(objSubFolder)
Next

For Each objFile In objFolder.Files
WScript.Echo objFile.Path ' & " " & objFile.Size & " " &
objFile.DateLastModified
Next
WScript.Echo "Number of files: " & objFolder.Files.Count


End Sub




Il me manque quelque choses pour pourvoir continuer plus bas


Avec les ajouts cela devrait fonctionner.




Avatar
sympatix
Pour ce qui ne l'on pas encore, le (petit) lien de téléchargement de la doc
de WSH:
http://www.microsoft.com/downloads/details.aspx?FamilyIDç4494d3-c4e1-4e18-9c6c-0ea28c9a5d9d&displaylang=fr&Hash=KX7DK75#filelist
en bas de la page, scd56fr.exe
--
Cordialement
Sympatix

(Antispam: Ôter les "toto" dans l'adresse, pour me répondre)
"Scripting Man" a écrit dans le message de news:

J'essais de reproduire comme le fameux dir de dos mais en vb mais je ne
peu pas aller a plus d'un directory.

voici mon code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder ("z:sources")

For Each objFile In objFolder.Files
WScript.Echo objFile.Path ' & " " & objFile.Size & " " &
objFile.DateLastModified
Next
WScript.Echo "Number of files: " & objFolder.Files.Count



Il me manque quelque choses pour pourvoir continuer plus bas







Avatar
scraper
Bonjour Scripting Man, dans le message
news:
tu disais :


J'essais de reproduire comme le fameux dir de dos mais en vb mais je
ne peu pas aller a plus d'un directory.

voici mon code:

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder ("z:sources")

For Each objFile In objFolder.Files
WScript.Echo objFile.Path ' & " " & objFile.Size & " " &
objFile.DateLastModified
Next
WScript.Echo "Number of files: " & objFolder.Files.Count



Il me manque quelque choses pour pourvoir continuer plus bas



si tu es vraiment sous VB (et pas VBS) ...

1 c'est pas le bon forum
2 il est déconseillé d'utiliser le FSO dans VB
3 regarde du côté des API FindFirstFile, FindNextFile et FindClose

tu as un très bon exemple dans API guide ...

www.allapi.net


si tu es sous VBS .. vois ci dessous ;-)



--

Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm

scraper

Avatar
Fred
Bonjour,

"sympatix" a écrit dans le message de
news:
Bonsoir !

Petit rectif, si je peux très modestement me permettre:
L'appel d'une Sub se fait, soit avec les paramètres entre parenthèses,
avec

call, soit sans call, et sans parenthèses:

1: Call Ma_Sub (Paramètres)
ou
2: Ma_Sub Paramètres



Tout à fait.
C'est une erreur récurrente chez moi !