Vbs : vérification de l'état des lecteurs

Télécharger le projet
Commenter

Description

ce script vérifie le lecteur demandé et s'il est connecté et pret, il montre les fichiers qui sont dans le répertoire racine du lecteur en question

Source / Exemple : 


Dim fso,periph,output

ques()
sub ques()
output = inputbox ("Quel lecteur voulez-vous vérifier ?"&vbcrlf&""&vbcrlf&"Inscrivez seulement la lettre du lecteur ci-dessous puis cliquez sur OK.","Choix du lecteur","Lecteur...") & ":\"
if output = ":\" then
 wscript.quit
end if
if output = "Lecteur...:\" then
 msgbox "Aucun lecteur séléctionné.",16+0,"Error"
 ques()
end if
end sub

Set fso = CreateObject("Scripting.FileSystemObject")
on error resume next
Set periph = fso.GetDrive(output)

if periph = error then
 msgbox "Lecteur [ " & output & " ] non connecté.",0+16,"Error"
 wscript.quit
else if periph.IsReady Then
 msgBox "Lecteur [ " & output & " ] prêt.",0+64,"Ready"
else if not periph.IsReady Then
 msgbox "Lecteur [ " & output & " ] non prêt.",0+16,"Error"
 wscript.quit
end if
end if
end if

msgBox sfl(output),0,"Fichiers contenus dans le  répertoire " & periph

Function sfl(output)

Dim dossiers,fic,fichiers,strListe

Set dossiers = fso.GetFolder(output)

Set fic = dossiers.Files

For Each fichiers in fic

strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & "    Date : " & fichiers.DateLastModified & "    Taille (octet) : " & fichiers.Size
Next

sfl = strListe
End Function
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Maxilie)