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
|