Rubrik: System/Windows · Sonstiges | VB-Versionen: VB5, VB6 | 19.10.05 |
Neuen Ordner im Startmenü erstellen Dieser Code zeigt, wie sich ein neuer Ordner im Startmenü von Windows erstellen lässt. | ||
Autor: Dieter Otter | Bewertung: | Views: 12.168 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Mit Hilfe des Tipps Systemordner ermitteln II lässt sich u.a. auch der Verzeichnispfad für "Programme" im Windows-Startmenü ermitteln.
Um nun einen neuen Ordner im Startmenü unter "Programme" zu erstellen, einfach folgenden Code verwenden:
' zunächst den Pfad für Ordner "Programme" ' im Windows-Startmenü ermitteln ... Dim sPath As String sPath = GetSpecialFolder(sfidCOMMON_PROGRAMS) ' ... und anschließend den neuen Ordner ' via MkDir-Aufruf erstellen On Error Resume Next MkDir sPath & "\" & txtFolder.Text ' Fehler aufgetreten? If Err.Number <> 0 Then MsgBox "Fehler beim Erstellen des Ordners '" & _ sPath & "\" & txtFolder.Text & "'" & vbCrLf & vbCrLf & _ CStr(Err.Number) & " " & Err.Description Else MsgBox "Ordner wurde ordnungsgemäß erstellt!" End If On Error GoTo 0