title image


Smiley Desktopverzeichnis Pfad auslesen. Was mache ich falsch?
Hallo



ich will in einem Textfeld den Pfad des Desktopverzeichnisses anzeigen lassen.

Deshalb setzte ich

Eigenschaften Steuerelementinhalte =GetSpecFolder([CSIDL_DESKTOPDIRECTORY])

Leider erhalte ich beim Formularstart die Meldung #Name? im Textfeld.

Was mache ich falsch????

Hilfe wäre toll

Unten steht mein Code!

Danke Serge







Die Funktion die ich dazu im intenrnet gefunden habe und die ich in VBA in ein neues Modul gespeichert habe lautet:



Option Compare Database

Public Const CSIDL_DESKTOPDIRECTORY = &H10& ' Desktopverzeichnis

__________________________________________________________________



Public Function GetSpecFolder(lCSIDL As Long, _

Optional bCreate As Boolean = False, Optional bVerify As Boolean = False) As String

Dim sPath As String, RetVal As Long, lFlags As Long

' Puffer füllen

sPath = String(MAX_PATH, 0)

lFlags = lCSIDL

If bCreate Then lFlags = lFlags Or CSIDL_FLAG_CREATE

If Not bCreate Then lFlags = lFlags Or CSIDL_FLAG_DONT_VERIFY

RetVal = SHGetFolderPath(0, lFlags, 0, SHGFP_TYPE_CURRENT, sPath)

Select Case RetVal

Case 0

' Verzeichnis gefunden

GetSpecFolder = Left(sPath, InStr(1, sPath, Chr(0)) - 1)

Case 1

' lCSIDL ist gültig, aber das Verzeichnis existiert nicht

' CSIDL_FLAG_CREATE erzeugt es automatisch

MsgBox "Verzeichnis existiert nicht"

Case &H80070057

' Ungültiges Verzeichnis

MsgBox "Ungültiger Verzeichnisbezeichner (CSIDL)"

End Select

End Function

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: