Vérification de la connexion d'un disque externe.

Version imprimable

20/07/2009, 23h12
helisaire

Vérification de la connexion d'un disque externe.

Bonsoir,

Totalement ignorant en programmation, je me renseigne depuis peu sur ce sujet.
Mais ça reste encore très étranger pour moi.

Voici ce que j'aimerais faire : dans mon entreprise, je suis chargé de la sauvegarde des données (pour cela j'utilise Cobian). Les sauvegardes sont lancées par l'utilisateur (deux en fait, sur deux postes différents). Nous avons deux disques externes USB, sur lesquels on fait des sauvegardes incrémentielles alternées entre les deux postes.

Mes soucis sont les suivants :
- les ordinateurs étant anciens, les ports sont USB 1.0 et les disques durs mettent un certain temps à se connectear. Je crains que les utilisateurs ne lancent les sauvegardes avant la reconnaissance du disque.
- j'ai peur que les utilisateurs se trompent dans les disques et les inversent, ce qui foirerait le cycle des sauvegardes.

Voilà pourquoi je pensais à un petit script qui permettrait de vérifier ces deux points avant le début de la sauvegarde.

Je pensais par exemple à "FileExists()" qui ferait un test sur un banal fichier texte sur le disque externe (dont la lettre de lecteur est toujours la même). L'utilisateur lance le script => le disque n'est pas connecté ou ce n'est pas le bon disque => une boîte de dialogue apparaît avec les boutons "recommencer et annuler". Quand tout est en place : on peut lancer l'éxecutable Cobian. exe avec les paramètres qui vont bien. Par exemple : "Cobian.exe "-list:C:\Program Files\List.lst" -bu -nogui".

Est-ce réalisable ? Existe-t-il des solutions meilleures ?

Merci de votre précieuse aide.

Finalement, j'ai trouvé un début de solution (c'est vraiment du bidouillage) mais je n'arrive pas à faire la boucle avec une boîte de dialogue RetryCancel.
Code:

1 2 3 4 5 6 7 8 9 Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileExists("w:\disque1.txt") Then Set OWS = CreateObject("Wscript.Shell") OWS.Run("C:\Cobian.lnk") Else x = msgBox("Le disque 1 n'est pas connecté !",0+16+4096,"Disque 1 non connecté" ) End If
Donc pour le moment c'est une boîte classique...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
do 'entrée de la boucle
        If objFSO.FileExists("w:\disque1.txt") Then
                Set OWS = CreateObject("Wscript.Shell")
                OWS.Run("C:\Cobian.lnk")
                exit do ' sortie de la boucle
                Else
                x = msgBox("Le disque 1 n'est pas connecté !",5,"Disque 1 non connecté" )
                if x <> 4 then exit do'sortie de la boucle car l'utilisateur a choisis le bouton Annuler
               'sinon reprend la condition If
        End If
loop

21/07/2009, 19h31
helisaire

Merci beaucoup. Cela correspond exactement à ce que j'attendais.