Thema Datum  Von Nutzer Rating
Antwort
07.12.2016 15:55:48 Gast32354
NotSolved
Blau Datei über Filebrowser wählen
 07.12.2016 16:11:08 GraFri
NotSolved
07.12.2016 16:22:35 GraFri
NotSolved
07.12.2016 16:18:36 Gast52632
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
07.12.2016 16:11:08		 Views:
597		 Rating:
     
Antwort:
  Ja
Thema:
Datei über Filebrowser wählen

Hallo

 

Vielleicht kannst du mit dem etwas anfangen.

 

Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

    Public 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
    
    
Sub Ordnerauswahl_starten()
    Dim OrdnerName
    
    OrdnerName = FunktionGetDirectory("Ordner der SAP-Dateien auswählen")
    MsgBox OrdnerName
End Sub

    

Function FunktionGetDirectory(Optional strAufforderung) As String
    Dim bInfo   As BROWSEINFO
    Dim Path    As String
    Dim r       As Long, x As Long, pos As Integer
    
    bInfo.pidlRoot = 0&
    
    If IsMissing(strAufforderung) Then
        bInfo.lpszTitle = "Wählen Sie bitte einen Ordner aus."
    Else
        bInfo.lpszTitle = strAufforderung
    End If
    
    bInfo.ulFlags = &H1
    x = SHBrowseForFolder(bInfo)
    Path = Space$(512)
    r = SHGetPathFromIDList(ByVal x, ByVal Path)
    
    If r Then
        pos = InStr(Path, Chr$(0))
        FunktionGetDirectory = Left(Path, pos - 1)
    Else
        FunktionGetDirectory = ""
    End If

End Function

 

mfg, GraFri

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
07.12.2016 15:55:48 Gast32354
NotSolved
Blau Datei über Filebrowser wählen
 07.12.2016 16:11:08 GraFri
NotSolved
07.12.2016 16:22:35 GraFri
NotSolved
07.12.2016 16:18:36 Gast52632
NotSolved