title image


Smiley Nun, das ist doch eine Aufgabe, die wie geschaffen ist...
für die Erstellung einer eigenen, kleinen VB6-Anwendung.



Erstelle ein neues Projekt und nimm unter "Projekt", "Verweise" die "Microsoft Scripting Runtime" auf.



Auf Deine Form nimmst Du jetzt eine Listbox (List1) und zwei Command-Buttons auf. Den ersten Command-Button benennst Du "Registrieren", den zweiten "Deregistrieren":



Option Explicit



Private Sub Form_Load()

Dim fso As New FileSystemObject

Dim fld As Folder

Dim fil As File



Set fld = fso.GetFolder(Environ("windir") & "\system32")



For Each fil In fld.Files

If Right(fil, 3) = "dll" Or Right(fil, 3) = "ocx" Then

List1.AddItem fil

End If

Next



End Sub



Private Sub Command1_Click()



Dim strBefehl As String



If List1.ListIndex = -1 Then

Exit Sub

End If



strBefehl = Chr(34) & "regsvr32 " & List1.List(List1.ListIndex) & Chr(34)



Call Shell(Environ("COMSPEC") & " /C " & strBefehl, vbHide)



End Sub

Private Sub Command2_Click()



Dim strBefehl As String



If List1.ListIndex = -1 Then

Exit Sub

End If



strBefehl = Chr(34) & "regsvr32 /u " & List1.List(List1.ListIndex) & Chr(34)



Call Shell(Environ("COMSPEC") & " /C " & strBefehl, vbHide)



End Sub





Gruß aus Ostfriesland. Möge Tux mit Dir sein!

ff


Proggst du schon .net oder quälst du dich noch mit VB6?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: