Verzeichnis II

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Verzeichnis II
von: Steffen
Geschrieben am: 17.05.2002 - 23:25:40

Hallo Leute,

ich habe ein zweites Problem und brauche bitte Eure Hilfe!

Also:

ich möchte per Excel eine Datei auf den Hintergrund - Desktop kopieren, leider weis ich aber nicht ob es ein NT oder Win 9.x Rechner ist, ich weis auch nicht auf welchem Laufwerk der Ornder liegt, ich weis das ist nicht ganz einfach ist, aber bitte trotzdem um Eure Hilfe!


Danke schonmal


Steffen

nach oben   nach unten

Re: Verzeichnis II
von: GraFri
Geschrieben am: 18.05.2002 - 06:51:30

Hallo

Hab ich mal irgendwo gefunden. Ermittelt den Pfad des jeweiligen Ordners. Eine Datei dorthin kopieren dürfte dann kein Problem mehr sein.


'Die DLL-Deklarationen, die Auflistung 'Enum ShellSpecialFolderConstants'
'und die Function 'GetSpecialFolder' werden als Modul eingefügt.
'Der Aufruf der Funktion gestaltet sich dann wie folgt:


'---------------------- in Modul ---------------------------------'API-Deklarationen
Private Declare Function SHGetPathFromIDList Lib "Shell32" _
          (ByVal lngIDList As Long, ByVal lpBuffer As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" _
          (ByVal hwndOwner As Long, ByVal nFolder As Integer, _
           plngIDl As Long) As Long

Public Enum ShellSpecialFolderConstants
    tsDESKTOP = 0&                'Alle Ressourcen ab Desktop
    tsProgramme = &H2&            'Startmenü Programme          (aktueller Benutzer)
    tsDrucker = &H4&              'Drucker
    tsEigeneDateien = &H5&        'Eigene Dateien               (aktueller Benutzer)
    tsFavoriten = &H6&            'Favoriten                    (aktueller Benutzer)
    tsSTARTMENU = &HB&            'Gesamtes Startmenü           (aktueller Benutzer)
    tsDesktopDir = &H10&          'Desktop (Ordner)             (aktueller Benutzer)
    tsArbeitsplatz = &H11&        'Arbeitsplatz
    tsNetzwerkumgebung = &H12&    'Netzwerkumgebung
    tsNetzwerkumgebungDir = &H13& 'Netzwerkumgebung (Ordner)
    tsSchriften = &H14&           'Fonts (Ordner)
    tsVorlagen = &H15&            'Vorlagen (Ordner)
    tsGemStartmenu = &H16&        'Gesamtes Startmenü           (alle Benutzer)
    tsGemStartmenuPrg = &H17&     'Startmenü Programme          (alle Benutzer)
    tsGemAutostart = &H18&        'Autostart (Ordner)           (alle Benutzer)
    tsGemDesktopDir = &H18&       'Desktop (Ordner)             (alle Benutzer)
    tsAnwendungsdaten = &H1A&     'Anwendungsdaten              (aktueller Benutzer)
    tsDruckumgebungDir = &H1B&    'Druckumgebung (Ordner)
    tsAltAutostart = &H1D&        'Altern. Autostart (Ordner)   (aktueller Benutzer)
    tsGemAltAutostart = &H1E&     'Altern. Autostart (Ordner)   (alle Benutzer)
    tsGemFavoriten = &H1F&        'Favoriten                    (alle Benutzer)
    tsInternetCache = &H20&       'Temp. Internet Files
    tsInternetCookies = &H21&     'Internet Cookies (Ordner)
    tsInternetVerlauf = &H22&     'Internet Verlauf (Ordner)
End Enum


Sub Ordner_suchen()
    MsgBox GetSpecialFolder(tsDesktopDir)
End Sub


Public Function GetSpecialFolder(FolderName As ShellSpecialFolderConstants) As String
Dim lngID As Long
Dim strPath As String

    Call SHGetSpecialFolderLocation(0, FolderName, lngID)

    If lngID Then
        strPath = Space(256)
        Call SHGetPathFromIDList(lngID, strPath)
        strPath = Left(strPath, InStr(strPath, Chr(0)) - 1)
    Else
        strPath = " - nicht definiert - "
    End If
    GetSpecialFolder = strPath

End Function

mfg, GraFri

nach oben   nach unten

hast post,
von: Steffen
Geschrieben am: 19.05.2002 - 10:57:36

bei mir funktioniert das leider nicht, hab dir ne mail geschrieben!

Steffen


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Verzeichnis II"