<\/p>\n
Es gibt verschiedene Varianten, eine Datei oder ein Verzeichnis per Dateidialog auszuwählen. Wer jedoch schon einmal mit einer Linux-Shell oder auch mit dem MS-Dos-Fenster gearbeitet hat, weiß, dass sich Verzeichnisse und Dateien auch rein tastaturgesteuert eingeben lassen. Was liegt da näher, als eine effiziente und schnelle Möglichkeit zum Auswählen von Verzeichnis- und Dateinamen zu bauen, die ausschließlich per Tastatur bedient werden kann Dieser Beitrag zeigt, wie Sie ein herkömmliches Kombinationsfeld zur Dateiauswahl einsetzen.<\/b><\/p>\n
Datei- und Verzeichnisauswahl mit einem Kombinationsfeld – wie soll das denn funktionieren Nun, es ist ganz einfach: Der Benutzer kann für das jungfräuliche Kombinationsfeld eines der vorhanden Laufwerke auswählen (s. Bild 1). Das erledigt er, indem er entweder einen der Einträge des Kombinationsfeldes auswählt oder indem er den Anfangsbuchstaben eintippt (beispielsweise c<\/b>) und dann die Tabulator<\/b>-Taste betätigt.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2011_05\/DateiauswahlPerKombifeld-web-images\/pic001.png\")
<\/p>\n
Bild 1: Die Auswahl eines der Laufwerke des aktuellen Rechners …<\/span><\/b><\/p>\n Daraufhin wird der Laufwerkspfad vervollständigt (auf c:\\<\/b>) und die Liste neu gefüllt – diesmal mit allen in der ersten Ebene unterhalb dieses Pfades enthaltenen Verzeichnissen und Dateien (s. Bild 2).<\/p>\n Bild 2: … führt zur Anzeige aller untergeordneten Verzeichnisse und Dateien.<\/span><\/b><\/p>\n Der Benutzer kann nun die Anfangsbuchstaben des gewünschten Eintrags eintippen oder auch mit den Nach oben<\/b>– und Nach unten<\/b>-Tasten einen der Listeneinträge auswählen. Gibt er einen oder mehrere Buchstaben ein, springt die Markierung in der Liste automatisch zum nächsten passenden Eintrag – dies ist Standardverhalten des Kombinationsfeldes. Wählt er mit den Cursortasten oder mit der Maus einen der Listeneinträge aus, wird dieser als aktueller Text des Kombinationsfeldes eingetragen.<\/p>\n Als Folge der Auswahl eines weiteren Unterordners werden wiederum die darin enthaltenen Verzeichnisse angezeigt – bis Sie irgendwann beim Zielordner angekommen, zum Beispiel im Access-Add-In-Verzeichnis (s. Bild 3).<\/p>\n Bild 4: Ausstattung eines Kombinationsfeldes mit einer Wertliste<\/span><\/b><\/p>\n Wenn Sie mal über das Ziel hinausgeschossen sind und ein oder mehrere Verzeichnisebenen weiter nach oben gelangen möchten, haben Sie zwei Möglichkeiten:<\/p>\n Programmierung des Kombinationsfeldes<\/b><\/p>\n Den Startpunkt und die einfachste Hürde auf dem Weg zu einem Kombinationsfeld mit dieser Sonderausstattung ist die Anzeige der Laufwerke beim Öffnen des Formulars. Dies erledigen wir in der Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird. Die Prozedur liest mit der Funktion GetDrives <\/b>die Liste aller Laufwerke ein und weist diese dem Kombinationsfeld als Recordset zu:<\/p>\n Kombinationsfeld füllen<\/b><\/p>\n Wenn Sie ein Kombinationsfeld auf Basis von Daten füllen möchten, die nicht aus einer Tabelle oder Abfrage stammen, haben Sie mehrere Möglichkeiten. Die erste und naheliegendste ist die Verwendung einer Wertliste. Dies bedeutet, dass Sie die Eigenschaft Herkunftsart<\/b> des Kombinationsfeldes auf den Wert Wertliste <\/b>einstellen (s. Bild 4) und per VBA eine Zeichenkette zusammenstellen, deren einzelne Einträge durch das Semikolon voneinander getrennt werden. Diese Vorgehensweise haben wir beim Erstellen dieser Lösung auch lange verwendet, bis sich irgendwann einmal der große Nachteil beim Einsatz von Wertlisten als Datenherkunft bemerkbar machte: Die Anzahl der enthaltenen Zeichen ist nämlich begrenzt. Aufgefallen ist dies beim Einlesen der Dateien eines Verzeichnis mit den Fotografien von 2010 – und mehr als 1.000 Dateinamen inklusive Pfadangaben waren dann doch etwas viel für eine Wertliste.<\/p>\n Bild 3: Mit dem Kombinationsfeld arbeiten Sie sich bis in tiefste Verzeichnisebenen vor.<\/span><\/b><\/p>\n Zum Glück gibt es noch weitere Varianten, zum Beispiel die Verwendung eines ADODB-Recordsets. Dieses kann man im Gegensatz zu DAO-Recordsets auch ohne Datenherkunft definieren und quasi in der Luft mit Daten füllen.<\/p>\n Es gibt dabei auch nicht besonders viel zu beachten – Sie müssen nur die Eigenschaft LockType <\/b>des zu erstellenden Recordset<\/b>-Objekts auf den Wert adLockOptimistic <\/b>einstellen. Aus unerfindlichen Gründen zeigt das Kombinationsfeld nur dann Werte an!<\/p>\n Laufwerke einlesen<\/b><\/p>\n Das Zusammenstellen der Liste der Laufwerke übernimmt die Funktion GetDrives<\/b>. Diese sieht wie in Listing 1<\/a><\/span> aus.<\/p>\n Listing 1: Zusammenstellen der Liste aller Laufwerke des aktuellen Rechners<\/p>\n Die Funktion erstellt zunächst ein neues Objekt des Typs ADODB.Recordset<\/b>. Die Objektvariable hierfür wird im Kopf des Moduls wie folgt deklariert:<\/p>\n Nach der Erzeugung des Objekts mit der New<\/b>-Methode stellt die Prozedur die besagte Eigenschaft LockType <\/b>auf adLockOptimistic <\/b>ein. Außerdem hängt es das Feld Pfad an die Tabelle an. Das Feld hat den Datentyp adVarWChar <\/b>und soll maximal 500 Zeichen lang sein (wenn Sie längere Pfade erwarten, vergrößern Sie diesen Wert entsprechend). Dann öffnet es die Datensatzgrupp und durchläuft alle Elemente der Drives<\/b>-Auflistung des FileSystemObject<\/b>-Objekts (weitere Informationen siehe Beitrag Dateisystem im Griff mit dem FileSystemObject<\/b>, www.access-im-unternehmen.de\/794<\/b>).<\/p>\n Dabei wird jeweils ein neuer Datensatz mit AddNew erzeugt, das Feld Pfad mit dem Namen des aktuellen Laufwerkbuchstabens gefüllt (ergänzt um die Zeichenfolge :\\) und der Datensatz gespeichert. Der Verweis auf die Datensatzgruppe wird schließlich als Rückgabewert der Funktion festgelegt.<\/p>\n FileSystemObject bereitstellen<\/b><\/p>\n Das in dieser Funktion verwendete Objekt objFSO <\/b>wird nicht global deklariert und beim Laden des Formulars instanziert, sondern durch eine Funktion bereitgestellt. Zunächst einmal wird eine Objektvariable zum Zwischenspeichern des FileSystemObject<\/b>-Objekts im Kopf der Prozedur deklariert:<\/p>\n Die Funktion objFSO <\/b>prüft zunächst, ob m_FSO <\/b>nicht leer ist und somit bereits instanziert wurde. Falls nicht (oder falls die Objektvariable etwa durch einen nicht behandelten Laufzeitfehler gelöscht wurde), instanziert Sie das Objekt erneut und weist es der Variablen m_FSO <\/b>zu. Egal, ob frisch erstellt oder noch vorhanden, wird dieses dann dem Rückgabewert objFSO <\/b>der gleichnamigen Funktion zugewiesen:<\/p>\n Verzeichnis auswählen<\/p>\n Wenn der Benutzer nun einen entsprechenden Buchstaben in das Kombinationsfeld eintippt, zeigt die Liste alle Einträge an, die mit diesem Buchstaben beginnen (im schlechtesten Fall also gar keinen). Natürlich kann der Benutzer das Kombinationsfeld auch einfach durch einen Klick auf die Schaltfläche rechts oder mit der Schaltfläche F4 <\/b>öffnen.<\/p>\n Um direkt die in diesem Laufwerk enthaltenen Verzeichnisse anzuzeigen, muss der Benutzer entweder einen konkreten Eintrag der Kombinationsfeldliste auswählen oder aber den Laufwerksbuchstaben eingeben und die Tabulatortaste betätigen.<\/p>\n Die Eingabe einzelner Zeichen soll unberücksichttigt bleiben, lediglich auf das Löschen von Zeichen reagiert die Lösung. Dies ist wichtig, damit die Datensatzherkunft des Kombinationsfeldes aktualisiert wird, wenn der Benutzer eine Verzeichnisebene komplett löscht: Das Recordset des Kombinationsfeldes muss dann aktualisiert werden. Das gleiche soll auch passieren, wenn der Benutzer einzelne Zeichen bis zum vorherigen Backslash löscht. Sobald das Backslash-Zeichen erreicht ist, soll das Kombinationsfeld entsprechend aktualisiert werden, sodass es die Unterverzeichnisse des nun angegebenen Verzeichnisses anzeigt.<\/p>\n <\/p>\n Die hier wichtigen Ereignisse, also das Betätigen der Tab<\/b>-Taste oder der Löschen<\/b>-Taste, fangen wir mit einer Prozedur ab, die durch das Ereignis Bei Taste <\/b>ab ausgelöst wird (s. Listing 2<\/a><\/span>).<\/p>\n Listing 2: Reagieren auf das Betätigen der Tabulator- oder der Löschen-Taste<\/p>\n Diese Prozedur prüft in einem Select Case<\/b>-Konstrukt, ob eine der beiden Tasten mit dem Wert 8 <\/b>(Löschen<\/b>) oder 9 <\/b>(Tabulator<\/b>) für den Parameter Keycode <\/b>betätigt wurde.<\/p>\n Reagieren auf die Tabulator-Taste<\/b><\/p>\n Wenn der Benutzer die Tabulator-Taste betätigt, soll immer der aktuelle Wert ergänzt werden – soweit es sich dabei um einen gültigen Verzeichnisnamen handelt. Wenn Sie also wie Bild 6. Dazu prüft die Prozedur Form_KeyDown <\/b>im Select Case<\/b>-Zweig mit dem Wert 9 <\/b>zunächst, ob das Kombinationsfeld überhaupt einen Wert enthält. Falls nicht, soll das Kombinationsfeld einfach mit den Laufwerken gefüllt und aufgeklappt werden.<\/p>\n Bild 5: Bei Betätigen der Tabulator-Taste soll dieser Wert ausgewählt werden und das Kombinationsfeld die Einträge der folgenden Ebene anzeigen.<\/span><\/b><\/p>\n Bild 6: Die Auswahlliste nach Betätigen der Tabulator-Taste<\/span><\/b><\/p>\n Die Prozedur speichert dann zunächst den aktuell angezeigten Text in der Variablen strFolder<\/b> und prüft, ob dieser Wert bereits einem vorhandenen Verzeichnis entspricht. Falls ja, testet die Prozedur noch, ob der Ausdruck von einem Backslash beendet wird. Falls nicht, wird dieses Zeichen noch an den aktuellen Ausdruck angehängt. Dieser Ausdruck dient dann als Kriterium für das Erweitern der Liste des Kombinationsfeldes.<\/p>\n Sollte das Kombinationsfeld keinen gültigen Pfad enthalten, weil der Teil hinter dem letzten Backslash nicht identifiziert wurde, wird der Ausdruck bis zum letzten Backslash als Basis für das Füllen des Kombinationsfeldes eingesetzt. Bei einem Ausdruck wie c:\\Daten\\blablub<\/b>, bei dem blablub <\/b>kein gültiges Verzeichnis ist, enthält strFolder <\/b>also anschließend den Wert c:\\Daten\\<\/b>. Damit der Benutzer anschließend hinter dem letzten gültigen und vollständigen Verzeichnis weiterschreiben kann, wird die Einfügemarke an das Ende des in strFolder gespeicherten Ausdrucks gesetzt (.SelStart = Len(strFolder)<\/b>).<\/p>\n Auf Basis dieses Pfades als Parameter wird dann die Funktion GetFoldersAndFiles <\/b>aufgerufen (siehe unten). Sie liefert ein Recordset mit allen Pfadangaben, die zum aktuellen Verzeichnis führen und allen Unterverzeichnissen und Dateinamen, um die der aktuelle Ausdruck ergänzt werden könnte.<\/p>\n Schließlich wird noch die Dropdown<\/b>-Methode aufgerufen, um das Kombinationsfeld mit den gefundenen Pfadangaben auszuklappen und zur Auswahl anzubieten und der Wert von KeyCode <\/b>auf 0 <\/b>eingestellt, damit die Wirkung der Tabulator-Taste aufgehoben wird.<\/p>\n Reagieren auf die Löschen-Taste<\/b><\/p>\n Falls der Benutzer die Löschen<\/b>-Taste betätigt, kann unter verschiedenen Bedingungen eine Reaktion erforderlich sein. Es gibt die folgenden Möglichkeiten:<\/p>\n Um entsprechend auf diese beiden Konstellationen zu reagieren, werden die Werte True <\/b>oder False <\/b>in Boolean-Variablen namens bolAllesMarkiert <\/b>und bolBackslashErreicht <\/b>geschrieben.<\/p>\n bolAllesMarkiert <\/b>wird auf True <\/b>eingestellt, wenn der enthaltene Text eine Länge größer als 0 <\/b>besitzt und die Länge des selektierten Textes der gesamten Textlänge entspricht. Die Variable bolBackslashErreicht <\/b>soll mit True <\/b>gefüllt werden, wenn sich die Einfügemarke am Ende des Textes befindet und wenn das nächste zu löschende Zeichen ein Backslash ist. Wenn dieser Teil der Prozedur aufgerufen wird, wurde ja noch kein Zeichen gelöscht, der Text lautet also etwa auf c:\\Daten\\P<\/b>.Der Benutzer hat bereits auf die Löschen<\/b>-Taste geklickt, sonst wären wir nicht in diesem Zweig der Select Case<\/b>-Anweisung dieser Prozedur gelandet. Das P <\/b>ist also prinzipiell weg, aber wir müssen natürlich trotzdem den Ausdruck inklusive dieses Zeichens untersuchen, das es ja noch nicht gelöscht wurde. Wir prüfen also, ob die Fundstelle des ersten Backslash-Zeichens von hinten aus der Länge des Textes minus 1<\/b> entspricht! Damit hätten wir bereits die beiden Variablen bolAllesMarkiert <\/b>oder bolBackslashErreicht <\/b>gefüllt.<\/p>\n Hat bolAllesMarkiert <\/b>den Wert True<\/b>, soll der Teil bis zum ersten Backslash von hinten gelöscht werden, bei c:\\Daten\\Programme <\/b>bleibt also c:\\Daten <\/b>über. Die Einfügemarke wird ganz nach hinten gesetzt, das Kombinationsfeld mit GetFoldersAndFiles <\/b>gefüllt und aufgeklappt. Außerdem wird KeyCode <\/b>gleich 0 <\/b>gesetzt, damit das Betätigen der Löschen<\/b>-Taste als erledigt betrachtet werden kann.<\/p>\n Wurden hingegen durch das Löschen einzelner Zeichen ein Backslash-Zeichen erreicht, wird ebenfalls der Teil hinter diesem Backslash-Zeichen gelöscht (alse nur das sowieso zu löschende Zeichen), die Einfügemarke an das Ende des aktuellen Ausdrucks gesetzt, das Kombinationsfeld aktualisiert und ausgeklappt.<\/p>\n Kombinationsfeld mit Verzeichnissen und Dateien füllen<\/b><\/p>\n Die Prozedur GetFoldersAndFiles <\/b>ist das Arbeitstier dieser Lösung (s. Listing 3<\/a><\/span>). Sie erwartet die Angabe eines Verzeichnisses, zu dem die folgenden Informationen in ein Recordset gefüllt werden sollen:<\/p>\n Listing 3: Ermitteln des Recordsets für das Kombinationsfeld<\/p>\n Es gibt zwar eine modulweit deklarierte Recordset<\/b>-Variable, die man theoretisch leeren könnte, aber es geht vermutlich schneller, dieses Variable mit einem neuen Recordset zu füllen.<\/p>\n Dies geschieht auf die gleiche Weise, wie es schon in der Prozedur GetDrives <\/b>erledigt wurde – durch Erzeugen des Recordsets, Einstellen der Eigenschaft LockType <\/b>auf acLockOptimistic <\/b>und hinzufügen des Feldes Pfad<\/b>.<\/p>\n Dann füllt die Prozedur die Folder<\/b>-Variable objParentFolder <\/b>mit einem Verweis auf den mit dem Parameter strFolder <\/b>übergebenen Verzeichnis. Diesen Verweis erhalten Sie mithilfe der Methode GetFolder <\/b>des FileSystemObject<\/b>-Objekts. <\/p>\n Im ersten Teil ermittelt die Prozedur das Laufwerk und alle Parent<\/b>-Verzeichnisse des aktuellen Verzeichnisses. Dazu speichert sie zunächst die Position des ersten Backslash-Zeichens des Verzeichnisses, in der Regel also das hinter dem Laufwerksbuchstaben. Nun werden solange neue Datensätze im Recordset angelegt, bis die Prozedur kein weiteres Backslash-Zeichen mehr findet.<\/p>\n Als Wert des Feldes Pfad <\/b>wird dabei jeweils der Ausdruck bis zum aktuell gefundenen Backslash-Zeichen eingetragen. Bei einem Verzeichnis wie c:\\Daten\\Buecher\\Access2010\\ <\/b>landen also nacheinander die Einträge c:\\<\/b>, c:\\Daten\\<\/b>, c:\\Daten\\Buecher\\ <\/b>und c:\\Daten\\Buecher\\Access2010\\ <\/b>in den ersten Datensätzen des Recordsets.<\/p>\n Dann durchläuft eine For Each<\/b>-Schleife alle Folder<\/b>-Elemente der SubFolders<\/b>-Auflistung des in objParentFolder <\/b>gespeicherten aktuellen Folder<\/b>-Objekts. Hier werden also alle Unterverzeichnisse durchlaufen. Dabei legt die Prozedur jeweils einen neuen Datensatz im Recordset an und trägt den Pfad zum Verzeichnis samt Verzeichnisnamen in das Feld Pfad <\/b>ein.<\/p>\n Genau das Gleiche geschieht auch für die im mit objParentFolder referenzierten Verzeichnis enthaltenen File-Elemente. Jede in diesem Verzeichnis enthaltene Datei wird so als neuer Datensatz in das Recordset eingetragen.<\/p>\n Fehler beim Untersuchen eines Verzeichnisses<\/b><\/p>\n Bei manchen Verzeichnissen wie etwa geschützten Systemverzeichnissen verweigern die Methoden des FileSystemObject<\/b>-Objekts den Dienst. Beim Versuch, auf die in einem solchen Verzeichnis enthaltenen Unterverzeichnisse oder Dateien zuzugreifen, wird ein Fehler ausgelöst, zum Beispiel der Fehler 70 (Zugriff verweigert). In diesem Fall erscheint ein entsprechender Hinweis.<\/p>\n Schließlich weist die Funktion seinem Rückgabeparameter GetFoldersAndFiles den Verweis auf das Recordset zu.<\/p>\n Öffnen der Laufwerk-Liste beim Leeren des Feldes<\/b><\/p>\n Für das Leeren des Kombinationsfeldes gibt es mehrere Möglichkeiten. Dies geschieht, wenn Sie mit der Löschen-Taste nacheinander alle Zeichen löschen, aber Sie können es auch komplett markieren und die Entfernen-Taste betätigen. Damit die Liste des Kombinationsfeldes in einem solchen Fall wieder mit den Laufwerkbuchstaben gefüllt wird, haben wir noch eine Prozedur angelegt, die durch das ändern des Inhalts des Kombinationsfeldes ausgelöst wird.<\/p>\n Sie sieht wie folgt aus und stellt lediglich das Recordset-Objekt wieder auf das Ergebnis der Funktion GetDrives <\/b>ein und klappt das Kombinationsfeld auf – und das nur, wenn das Kombinationsfeld eine Zeichenkette der Länge 0 <\/b>enthält:<\/p>\n Verlassen des Kombinationsfeldes nur mit gültigem Verzeichnis<\/b><\/p>\n Schließlich kann es geschehen, dass der Benutzer das Kombinationsfeld verlässt, ohne ein gültiges Verzeichnis oder eine gültige Datei ausgewählt zu haben. In diesem Fall soll eine entsprechende Meldung erscheinen.<\/p>\n Dieses Verhalten erreichen wir, indem wir die Eigenschaft Nur Listeneinträge <\/b>auf Ja <\/b>einstellen und dann eine Bei Fehler<\/b>-Ereignisprozedur wie die aus Listing 4<\/a><\/span> hinzufügen.<\/p>\n Listing 4: Fehlermeldung bei Angabe nicht vorhandener Verzeichnisse oder Dateien<\/p>\n Funktion wiederverwendbar machen<\/p>\n Wenn Sie die Dateiauswahl-Funktion dieses Beitrags für weitere Formulare oder Anwendungen verfügbar machen wollen, sollten Sie die beschriebenen Ereignisprozeduren nicht jedesmal kopieren, sondern diese in eine Klasse exportieren, die Sie dann beim Laden des betroffenen Formulars instanzieren und mit den entsprechenden Informationen versehen.<\/p>\n Wir haben das bereits für Sie erledigt und der Beispieldatenbank ein Klassenmodul namens clsFileAndFolderCombobox <\/b>hinzugefügt. Wir haben dieses auch noch um eine weitere Funktion ergänzt, mit der Sie ein Standardverzeichnis für das Kombinationsfeld festlegen können.<\/p>\n Dies ist auch ein Feature der meisten Dateiauswahl-Dialoge – Sie können dort festlegen, welches Verzeichnis dort gleich beim Öffnen angezeigt werden soll.<\/p>\n Wenn Sie ein Kombinationsfeld mit der Dateiauswahl-Funktion ausstatten möchten, brauchen Sie nur die Klasse clsFileAndFolderCombobox <\/b>zum VBA-Projekt hinzuzufügen.<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2011_05\/DateiauswahlPerKombifeld-web-images\/pic002.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2011_05\/DateiauswahlPerKombifeld-web-images\/pic004.png\")
<\/p>\n\n
Private Sub Form_Load()\r\n Set Me!cboDateiname.Recordset = GetDrives\r\nEnd Sub<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2011_05\/DateiauswahlPerKombifeld-web-images\/pic003.png\")
<\/p>\nPrivate Function GetDrives() As adodb.Recordset\r\n Dim objDrive As Scripting.Drive\r\n Set rst = New adodb.Recordset\r\n With rst\r\n .LockType = adLockOptimistic\r\n .Fields.Append "Pfad", adVarWChar, 500\r\n .Open\r\n For Each objDrive In objFSO.Drives\r\n .AddNew\r\n !Pfad = objDrive.DriveLetter & ":\\"\r\n .Update\r\n Next objDrive\r\n End With\r\n Set GetDrives = rst\r\nEnd Function<\/pre>\n
Dim rst As ADODB.Recordset<\/pre>\n
Dim m_FSO As FileSystemObject<\/pre>\n
Function objFSO() As FileSystemObject\r\n If m_FSO Is Nothing Then\r\n Set m_FSO = New FileSystemObject\r\n End If\r\n Set objFSO = m_FSO\r\nEnd Function<\/pre>\n
Private Sub cboDateiname_KeyDown(KeyCode As Integer, Shift As Integer)\r\n Dim strFolder As String\r\n Dim bolAllesMarkiert As Boolean\r\n Dim bolBackslashErreicht As Boolean\r\n Select Case KeyCode\r\n Case 8 ''Löschen\r\n With Me!cboDateiname\r\n If Len(.Text) > 0 Then\r\n bolAllesMarkiert = .SelLength = Len(.Text)\r\n bolBackslashErreicht = .SelStart = Len(.Text) And InStrRev(.Text, "\\") = Len(.Text) - 1\r\n If bolAllesMarkiert Then\r\n .Text = Mid(.Text, 1, InStrRev(Left(.Text, Len(.Text) - 1), "\\"))\r\n .SelLength = Len(.Text)\r\n If Len(.Text) > 0 Then\r\n Set .Recordset = GetFoldersAndFiles(.Text)\r\n .Dropdown\r\n End If\r\n KeyCode = 0\r\n Else\r\n If bolBackslashErreicht Then\r\n .Text = Mid(.Text, 1, InStrRev(Left(.Text, Len(.Text) - 1), "\\"))\r\n .SelLength = Len(.Text)\r\n If Len(.Text) > 0 Then\r\n Set .Recordset = GetFoldersAndFiles(.Text)\r\n .Dropdown\r\n End If\r\n KeyCode = 0\r\n End If\r\n End If\r\n End If\r\n End With\r\n Case 9 ''Tabulator\r\n With Me!cboDateiname\r\n If Len(.Text) > 0 Then\r\n strFolder = .Text\r\n .SelStart = Len(.Text)\r\n If objFSO.FolderExists(strFolder) Then\r\n If Not Right(strFolder, 1) = "\\" Then\r\n strFolder = strFolder & "\\"\r\n End If\r\n Else\r\n strFolder = Left(strFolder, InStrRev(strFolder, "\\"))\r\n End If\r\n .SelStart = Len(strFolder)\r\n If objFSO.FolderExists(strFolder) Then\r\n Set .Recordset = GetFoldersAndFiles(strFolder)\r\n .Dropdown\r\n KeyCode = 0\r\n End If\r\n Else\r\n Set .Recordset = GetDrives\r\n .Dropdown\r\n End If\r\n End With\r\n End Select\r\nEnd Sub<\/pre>\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2011_05\/DateiauswahlPerKombifeld-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2011_05\/DateiauswahlPerKombifeld-web-images\/pic006.png\")
<\/p>\n\n
Public Function GetFoldersAndFiles(strFolder As String) As adodb.Recordset\r\n Dim objFolder As Scripting.Folder\r\n Dim objFile As Scripting.File\r\n Dim objParentFolder As Scripting.Folder\r\n Dim intPosition As String\r\n Set rst = New adodb.Recordset\r\n With rst\r\n .LockType = adLockOptimistic\r\n .Fields.Append "Pfad", adVarWChar, 500\r\n .Open\r\n Set objParentFolder = objFSO.GetFolder(strFolder)\r\n intPosition = InStr(strFolder, "\\")\r\n Do While Not intPosition = 0\r\n .AddNew\r\n !Pfad = Mid(strFolder, 1, intPosition)\r\n .Update\r\n intPosition = InStr(intPosition + 1, strFolder, "\\")\r\n Loop\r\n On Error Resume Next\r\n For Each objFolder In objParentFolder.SubFolders\r\n .AddNew\r\n !Pfad = objFolder.Path & "\\"\r\n .Update\r\n Next objFolder\r\n For Each objFile In objParentFolder.Files\r\n .AddNew\r\n !Pfad = objFile.Path\r\n .Update\r\n Next objFile\r\n End With\r\n Select Case Err.Number\r\n Case 70, 92\r\n MsgBox "Die Unterverzeichnisse konnten nicht eingelesen werden."\r\n Case 0\r\n Case Else\r\n MsgBox "Fehler " & Err.Number & ", " & Err.Description\r\n End Select\r\n On Error GoTo 0\r\n Set GetFoldersAndFiles = rst\r\nEnd Function<\/pre>\n
\n
Private Sub cboDateiname_Change()\r\n With Me!cboDateiname\r\n If Len(.Text) = 0 Then\r\n Set .Recordset = GetDrives\r\n .Dropdown\r\n End If\r\n End With\r\nEnd Sub<\/pre>\n
Private Sub Form_Error(DataErr As Integer, Response As Integer)\r\n Select Case DataErr\r\n Case 2237\r\n MsgBox "Bitte wählen Sie ein gültiges Verzeichnis oder eine gültige Datei aus."\r\n Response = acDataErrContinue\r\n Case 0\r\n Case Else\r\n MsgBox "Fehler " & DataErr & ", " & AccessError(DataErr)\r\n End Select\r\nEnd Sub<\/pre>\n