Je recherche la syntaxe pour formater une diskette (en VBS)

Signaler
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Messages postés
11
Date d'inscription
mercredi 4 février 2004
Statut
Membre
Dernière intervention
19 décembre 2004
-
Bonjour,

Je n'arrive pas à trouver la syntaxe pour formater une disquette. :sleepy)
Quelqu'un peut-il m'orienter?
Ci-dessous, ma proc qui est presque finie.

'
' Script : SAUVEGARDE CONTEXT WINGEP.VBS
' Application : Automates WINGEP
' Objet : Sauvegarde fichier context Wingep sur diskette
' Copie de c:\Wingep\Context\Wingep.ctx sur a:\
' Utilisation : Planificateur de tâches (ts les jours ouvrés - 16h00)
' Auteur : OLLIVIER Jean-Marc
' Date : 13 mai 2002
'
Dim fso, f, Input, Output, Reponse
Input = "c:\Wingep\Context\Wingep.ctx"
Output = "a:"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetDrive(Output)
If f.IsReady Then
' MsgBox ("Disquette montée sur lecteur " & Output)
'
'
' => formatage de la disquette à solutionner
'
'
fso.CopyFile Input, Output

Else
Reponse = MsgBox ("Sauvegarde Context Wingep" & vbCrlf & vbCrlf & "Disquette non montée sur lecteur " & Output & vbCrlf & vbCrlf & "Insérer une disquette, puis cliquer sur OK pour continuer " & vbCrlf & vbCrlf & " Si abandon, cliquer sur ANNULER",vbQuestion+vbOkCancel)
If Reponse = vbCancel Then
WScript.Quit
Else
fso.CopyFile Input, Output
End If
End If

MsgBox ShowFolderList(Output),vbInformation,"Sauvegarde Context Wingep => copie de " & Input & " sur " & Output

Function ShowFolderList(Output)
Dim fso, fic, Dossiers, Fichiers, StrListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(Output)
Set fic = Dossiers.Files
For Each Fichiers in fic
'le nom du fichier
StrListe = StrListe & vbCrlf & vbCrlf & Output & fichiers.Name & " Date : " & fichiers.DateLastModified & " Taille (octet) : " & Fichiers.Size
Next
ShowFolderList = StrListe & vbCrlf & vbCrlf & vbClrf & vbCrlf & "Le fichier << " & Input & " >> a bien été copié sur " & Output & vbCrlf & vbCrlf & "Vous pouvez retirer la disquette du lecteur " & Output & " et la ranger dans la valise du client"
End Function
Set fso = Nothing

3 réponses

Messages postés
35
Date d'inscription
jeudi 13 juin 2002
Statut
Membre
Dernière intervention
5 décembre 2011

Spip
0
Messages postés
35
Date d'inscription
jeudi 13 juin 2002
Statut
Membre
Dernière intervention
5 décembre 2011

Essaye un truc comme :

shell( "format a:",1)

ceci execute une commande Dos classique la
syntaxe est :
shell( Programe a executer , Numero )

pour le numero : 1 -> la fenetre dos sera visible
0 -> fenetre invisible.
0
Messages postés
11
Date d'inscription
mercredi 4 février 2004
Statut
Membre
Dernière intervention
19 décembre 2004

Tu initialise la fonction dos:

Set dos = WScript.CreateObject("WScript.Shell")


et tu indique une command à executer

dos.run "format a:" 'rajoute /q pour un formatage sans confirmation


Voilà !!!

ps: ca marche avec toutes les commandes dos...

:: Kmeleon ::
0