ERFORDERLICHE
OBJEKTE
2 Commandbuttons (Command1, Command2)
FORM-CODE
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
(ByVal uFlags As Long, ByVal pv As String)
'eine Datei hinzufügen
Private Sub Command1_Click()
Dateiname = "c:\autoexec.bat"
Call SHAddToRecentDocs(2, Dateiname)
End Sub
'Verknüpfungen löschen
Private Sub Command2_Click()
Call SHAddToRecentDocs(2, vbNullString)
End Sub
|