Datei- und Ordnerauswahl


1. Ein Dateiauswahl- bzw. Speicherdialog wird aufgerufen mit FF_EnterFileName:
Methode = False    ' false = Speichern unter
                   ' True = Öffnen
Dateiname = "*.jpg"
MsgBox FF_EnterFileName(Methode, Dateiname)
Ein Ordnerauswahldialog wird aufgerufen mit FF_EnterPath (siehe auch Ordnerauswahl):
root = True     ' False = FixFoto-Computer-Verzeichnis ist voreingestellt
                ' True = Stammverzeichnis des Laufwerks auf dem FF installiert ist
MsgBox FF_EnterPath(root, "Überschrift")
Das Startverzeichnis für den Dateiauswahl- bzw. Speicherdialog kann mit FF_SetCurrentPath gesetzt werden.

2. Für die Datei- bzw. Ordnerauswahl bietet die Shell.BrowseForFolder-Methode mehr Möglichkeiten bei der Auswahl des Startordners:

VBScript:
Option Explicit
 
FF_MessageBox OrdnerDateiAuswahl(), 0
 
Function OrdnerDateiAuswahl()
    Dim AuswahlTitel
    Dim AuswahlOption
    Dim StartOrdner
    Dim DateiAuswahl
 
    On Error Resume Next
        AuswahlTitel = "Bitte Datei auswählen"
        AuswahlOption = 16384
        ' nur Ordner = 0
        ' Ordner und Dateien = 16384

        ' ein beliebiger Pfad oder eine der numerischen Konstanten:
        StartOrdner = 2
        ' Desktop = 0
        ' Programme (User) = 2
        ' Eigene Dateien = 5
        ' Eigene Musik = 13
        ' Eigene Videos = 14
        ' Arbeitsplatz = 17
        ' Netzwerk = 18
        ' Freigaben = 19
        ' Anwendungsdaten = 26
        ' Programmverzeichnis = 38
        ' Programmverzeichnis(x86) = 48
        ' Windowsverzeichnis = 36

        Set DateiAuswahl = CreateObject("Shell.Application").BrowseForFolder(0, AuswahlTitel, AuswahlOption, StartOrdner)
        If DateiAuswahl Is Nothing Then
            OrdnerDateiAuswahl = ""
        Else
            OrdnerDateiAuswahl = DateiAuswahl.Self.Path
        End If
    On Error Goto 0
End Function
JScript:
FF_MessageBox(OrdnerDateiAuswahl(), 0);
 
function OrdnerDateiAuswahl() {
    var AuswahlTitel = "Bitte Datei auswählen";
    var AuswahlOption = 16384;
    // nur Ordner = 0
    // Ordner und Dateien = 16384
 
    // ein beliebiger Pfad oder eine der numerischen Konstanten:
    var StartOrdner = 2;
    // Desktop = 0
    // Programme (User) = 2
    // Eigene Dateien = 5
    // Eigene Musik = 13
    // Eigene Videos = 14
    // Arbeitsplatz = 17
    // Netzwerk = 18
    // Freigaben = 19
    // Anwendungsdaten = 26
    // Programmverzeichnis = 38
    // Programmverzeichnis(x86) = 48
    // Windowsverzeichnis = 36
 
    var DateiAuswahl = new ActiveXObject("Shell.Application").BrowseForFolder(0, AuswahlTitel, AuswahlOption, StartOrdner);
    if (DateiAuswahl == null)
        return "";
    else
        return DateiAuswahl.Self.Path;
}