CREATION FICHIER BATCH POUR INSTALLATION PATCH WINDOWS

Private Sub Command1_Click()
Set FSys = CreateObject("Scripting.FileSystemObject")
Set MonFic = FSys.CreateTextFile(Text1)
d = ""
If (Len(File1.Path) > 3) Then a = "\"
If Check1 Then d = d & " /Q"
If Check2 Then d = d & " /Z"
If Check3 Then d = d & " /M"
If Check4 Then d = d & " /L"
If Check5 Then d = d & " /N"
If Check6 Then d = d & " /F"
With MonFic 'Pour écrire dans le fichier texte
For i = 0 To (File1.ListCount - 1)
.WriteLine File1.Path & a & File1.List(i) & d
Next
End With
msg = "Écriture réussie dans fichier.txt"
MsgBox (msg)
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1
End Sub

Télécharger le zip