Private Sub Command1_Click()
  Dim ErstesByte As String * 1
  Dim sFile As String
  Dim i As Integer
  Dim F As Integer
 
  If Option1 = True Then ErstesByte$ = "X" Else ErstesByte$ = "M"
 
  With List1
    For i = 0 To .ListCount - 1
      sFile = .List(i)
      Label1 = "Folgende .exe-Datei wird modifiziert : " & vbCrLf & sFile
      DoEvents
 
      If InStr(UCase$(sFile), ".EXE") Then
        F = FreeFile
        Open sFile For Random As #F Len = 1
        Put #F, 1, ErstesByte
        Close #F
      End If
    Next i
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de