verification si repertoire vide en vbscript URGENT ;)
1 réponse
stephane
bonjour,
je cherche une procedure qui me permettra de verifier si un repertoire est vide
ou pas.
voici la base de ma procedure:
Set f = FSO.GetFolder("c:\nomrep\")
Set fc = f.SubFolders
If f <> "" Then
MsgBox "pas de fichier"
Else
MsgBox "fichier existant"
End If
merci pour votre aide.
--
Ce message a été posté via la plateforme Web club-Internet.fr
This message has been posted by the Web platform club-Internet.fr
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
Jean-Claude BELLAMY
Dans le message , stephane s'est ainsi exprimé :
bonjour, je cherche une procedure qui me permettra de verifier si un repertoire est vide ou pas.
voici la base de ma procedure:
Set f = FSO.GetFolder("c:nomrep") Set fc = f.SubFolders
If f <> "" Then MsgBox "pas de fichier" Else MsgBox "fichier existant" End If
La solution est ......
Set f = FSO.GetFolder("c:nomrep")
Set filesColl=f.Files Set foldersColl=f.SubFolders if filesColl.count+foldersColl.count=0 then msg="Dossier vide" else msg="Il y a " & filesColl.count & " fichier(s) et " _ & foldersColl.count & " dossiers(s)" msgbox msg
--
Dans le message 2004113-124126-235601@foorum.com,
stephane <bb_steph@hotmail.com> s'est ainsi exprimé :
bonjour,
je cherche une procedure qui me permettra de verifier si un
repertoire est vide ou pas.
voici la base de ma procedure:
Set f = FSO.GetFolder("c:nomrep")
Set fc = f.SubFolders
If f <> "" Then
MsgBox "pas de fichier"
Else
MsgBox "fichier existant"
End If
La solution est ......
Set f = FSO.GetFolder("c:nomrep")
Set filesColl=f.Files
Set foldersColl=f.SubFolders
if filesColl.count+foldersColl.count=0 then
msg="Dossier vide"
else
msg="Il y a " & filesColl.count & " fichier(s) et " _
& foldersColl.count & " dossiers(s)"
msgbox msg
bonjour, je cherche une procedure qui me permettra de verifier si un repertoire est vide ou pas.
voici la base de ma procedure:
Set f = FSO.GetFolder("c:nomrep") Set fc = f.SubFolders
If f <> "" Then MsgBox "pas de fichier" Else MsgBox "fichier existant" End If
La solution est ......
Set f = FSO.GetFolder("c:nomrep")
Set filesColl=f.Files Set foldersColl=f.SubFolders if filesColl.count+foldersColl.count=0 then msg="Dossier vide" else msg="Il y a " & filesColl.count & " fichier(s) et " _ & foldersColl.count & " dossiers(s)" msgbox msg
