ich habe ein Problem...
Ich muss die Ordner in dem Intranet auswählen.
das hat ganze Zeit funktioniert, nun nach einem Tag funktioniert es nicht mehr,
vielleicht ist was mit Bibliotheken nicht in Ordnung:
aber es scheint alles ok zu sein...
Dafür brauche ich schell32.dll und sie ist auch vorhanden...
Das komische ist, die Ordner werden lokal ausgewählt, und nur wenn ich ins Intranet gehe, zeigt er mir keine weitere Ordner an...
Wie SO NUR?
Hier ist der Screen Shot:
https://www.herber.de/bbs/user/9212.doc
Hier ist die Code:
Option Explicit
Private Declare
Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long
Private Declare
Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Const BIF_RETURNONLYFSDIRS = &H1
Private Const BIF_RETURNFSANCESTORS = &H8
Private Const BIF_BROWSEFORCOMPUTER = &H1000
Private Const BIF_BROWSEFORPRINTER = &H2000
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Public Enum Flag
'//Nach Drucker im Netzwerk suchen lassen
BrowseForPrinter = BIF_BROWSEFORPRINTER
'//Nach Computer im Netzwerk suchen lassen
BrowseForComputer = BIF_BROWSEFORCOMPUTER
'//Nach lokalem oder Netzwerkordner suchen lassen
BrowseForFolder = BIF_RETURNONLYFSDIRS
'//Nur lokale Ordner zur Auswahl zulassen
BrowseForLocalFolder = BIF_RETURNFSANCESTORS
End Enum
Public
Function ShowSelection(ByVal hwnd As Long, Title As String, Optional dwFlag As Flag = BIF_RETURNONLYFSDIRS) As String
Dim bi As BROWSEINFO
Dim pidl As Long
Dim strFolder As String
strFolder = String$(255, vbNullChar)
With bi
'.hOwner = hWnd
.ulFlags = dwFlag
.pidlRoot = 0
.lpszTitle = Title
End With
pidl = SHBrowseForFolder(bi)
ShowSelection = IIf(SHGetPathFromIDList(ByVal pidl, ByVal strFolder), _
Left$(strFolder, InStr(strFolder, vbNullChar) - 1), _
vbNullString)
End Function
ich wäre euch sehr dankbar, wenn ich mir ein Tipp giebt...
Das ist echt ein super misses Gefühl, wenn das ganze Zeit funktioniert hat, und auf einmal nicht.... :´(
Viele Grüße
Julia