HERBERS Excel-Forum - die Beispiele

Thema: Verzeichnisdialog mit vorgegebenem Verzeichnis aufrufen

Home

Gruppe

Datei

Problem

Es soll ein Ordnerdialog mit dem in Zelle B1 genannten Ordner als Startverzeichnis aufgerufen und das Anlegen eines neuen Ordners ermöglcht werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub OrdnerDialog()
   Const WINDOW_HANDLE = 0
   Const NO_OPTIONS = 0
   Dim Wscript As Application
   Dim objShell As Object
   Dim objFolder As Object
   Dim objFolderItem As Object
   Dim objFile As Object
   Dim colFiles As Object
   Dim objWMIService As Object
   Dim strComputer As String, strPath As String
   
   Set objShell = CreateObject("Shell.Application")
   Set objFolder = objShell.BrowseForFolder _
      (WINDOW_HANDLE, "Wählen Sie einen Ordner aus:", NO_OPTIONS, Range("B1").Value)
   If objFolder Is Nothing Then Exit Sub
   Set objFolderItem = objFolder.Self
   strPath = objFolderItem.Path
   strPath = Replace(strPath, "\", "\\")
   strComputer = "."
   Set objWMIService = GetObject _
   ("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
   Set colFiles = objWMIService.ExecQuery _
      ("Select * from Win32_Directory where name = '" & strPath & "'")
   On Error GoTo ERRORHANDLER
   For Each objFile In colFiles
      Wscript.Echo "Readable: " & objFile.Readable
   Next
ERRORHANDLER:
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Dialog

Excel/PDF Datei unter bestimmten Pfad abspeichern aus excel Worddatei nach Wert durchsuchen
Split-Funktion beim Einlesen TXT-Datei Datei löschen mit unterschiedlichen Zahlen im Name
Datei löschen mit unterschiedlichen Zhalen im Name geöffnete Worddatei und Word aus Excel beenden
Excel-Datei nicht im Projekt-Explorer Suche nach jüngster Datei
Mehrere Zellen in mehreren Dateien ersetzen Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Datei langsam durch Formel
Dateien aus Unterordner öffnen Daten import aus txt--Datei
Dateipfad öffnen mit VBA Datei-Verknüpfungen
Masterdatei erschaffen? Mehrere Datenblätter als PDF-Datei ausgeben
Makro bei Erstellen einer Datei aus einer Vorlage Zusammenführung aus mehreren Dateien
Rechteck per Button in andere Datei einfügen. Alle Dateien in einem Unterordner öffnen
VBA: MsgBox: yes/no. Bei yes andere Datei öffnen Mehrere txt Dateien einlesen in ein Programm
VBA Datei als .txt speichern Excel Datei in CSV Datei wandeln mit Extras
aktierten Text in geöffnete Worddatei Spalte in andere Dateien kopieren + zurückkopieren
Aus einer CSV-Datei ein bestimmtes Layout erzeugen Daten ausgew. WS in 2. Datei zusammenführen
Per VBA aktuelle Datei in Autostart-Ordner csv Dateien importieren
Makrodatei als Software hochwertiger gestalten manuelles Speichern bei schreibgeschützter Datei
Daten aus geschlossener Datei in Zieldatei kopiere xlDialogInsertHyperlink.show
Dateinamen per VBA vorgeben (Datum: Vormonat) Ordner mit Unterordnern/Dateien kopieren
Auswertung über mehrere Dateien Geschlossene Excel-Datei bearbeiten?
datei öffnen durch vba ohne makroaktivierung Datei öffnet im Entwurfsmodus
Dateinamen der ausgelesenen Datei anzeigen Dateien vergleichen-doppelte löschen
Datendatei per Doppelklick einlesen Hyperlink auf Excel-Datei funktioniert nicht
Kopieren über 2 Dateien? Dateiinfo aller Dateien in allen Verz./Unterverz
Excel Datei