Je recherche la syntaxe pour formater une diskette (en VBS)
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
13 juin 2002 à 07:10
fancameleon
Messages postés11Date d'inscriptionmercredi 4 février 2004StatutMembreDernière intervention19 décembre 2004
-
12 déc. 2004 à 20:01
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
A voir également:
Je recherche la syntaxe pour formater une diskette (en VBS)