<\/p>\n
Es gibt verschiedene Möglichkeiten, Dateien mit Access zu verwalten. Je nach Speicherplatz speichert man diese in einem Anlage-Feld oder in einem externen Ordner und verweist dann über die Angabe des Pfades auf diese Datei. Es gibt zwar auch noch OLE-Felder, aber Anlagefelder sind intuitiver zu nutzen, da man diesen auch ohne Code Dateien hinzufügen kann. Aufgrund der begrenzten Größe von Access-Dateien mit zwei Gigabyte ist es oft sinnvoller, nur die Dateipfade zu speichern. Spannend wird es beim Hinzufügen der Dateien selbst: Dies geschieht in der Regel durch Öffnen eines Dateiauswahl-Dialogs. In vielen Fällen ist das Verzeichnis mit den Dateien aber bereits im Windows Explorer geöffnet und man könnte diese schneller per Drag and Drop hinzufügen. Wie das gelingt, zeigen wir im vorliegenden Beitrag.<\/b><\/p>\n
Drag and Drop ins Anlagefeld<\/b><\/p>\n
Grundsätzlich wäre es praktisch, wenn man Dateien direkt in ein Textfeld ziehen könnte und der Pfad zu dieser Datei dann in das Textfeld eingetragen wird. Das gelingt allerdings nicht mit Bordmitteln, denn die eingebauten Steuer-elemente erlauben kein Drag and Drop. Ein Mangel, mit dem viele Access-Entwickler hadern.<\/p>\n
Die einzigen Steuer-elemente, welche die Behandlung von Drag and Drop-Ereignissen erlauben, sind in der Bibliothek MSCOMCTL.ocx <\/b>enthalten. Dabei handelt es sich um Steuer-elemente wie das ListView<\/b>-, das TreeView<\/b>– oder das ImageCombo<\/b>-Steuerelement.<\/p>\n
Das erfahren Sie, wenn Sie eines dieser Steuer-elemente zu einem Formular einer Datenbankdatei hinzufügen und dann im VBA-Editor den Objektkatalog öffnen, wo Sie wie in Bild 1 nach dem Suchbegriff Drop <\/b>suchen.<\/p>\n
![\"Steuer-elemente](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_001.png\")
<\/p>\n
Bild 1: Steuer-elemente mit Drag and Drop-Ereignissen<\/span><\/b><\/p>\n Wir können also nicht direkt per Drag and Drop Dateien direkt in ein Textfeld ziehen. Das ließe sich mit API-Programmierung erreichen, wovon wir aber in diesem Beitrag absehen. Stattdessen werden wir dazu ein ListView<\/b>-Steuerelement verwenden, das wir an geeigneter Stelle in dem Formular unterbringen, welches wir mit der Drag and Drop-Funktion ausstatten wollen.<\/p>\n Wenn der Benutzer dann eine Datei auf dieses Steuer-element zieht, soll ein entsprechendes Ereignis ausgelöst werden, das den Dateipfad erkennt und diesen in das gewünschte Feld einträgt.<\/p>\n Alternative: Datei zusätzlich in bestimmtes Verzeichnis kopieren<\/b><\/p>\n Gegebenenfalls sollen die Dateien, deren Pfad in der Tabelle gespeichert werden sollen, zuvor in ein spezielles Verzeichnis kopiert oder verschoben werden. Das kann beispielsweise ein Verzeichnis sein, dass sich im gleichen Ordner wie die Datenbankdatei befindet. Diese Funktion wollen wir alternativ vorsehen.<\/p>\n Tabelle zum Speichern der Dateipfade<\/b><\/p>\n Die Tabelle, in der wir die Pfade zu den per Drag and Drop einzufügenden Dateien speichern, sieht in der Entwurfsansicht wie in Bild 2 aus. Neben dem Primärschlüsselfeld namens ID <\/b>soll die Tabelle nur noch das Feld Dateipfad <\/b>enthalten.<\/p>\n Bild 2: Tabelle zum Speichern der Dateipfade<\/span><\/b><\/p>\n Formular mit der Drag and Drop-Funktion<\/b><\/p>\n Das Formular, dem wir die Drag and Drop-Funktion hinzufügen wollen, verwendet die Tabelle tblDateipfade<\/b> als Datensatzquelle. Wir ziehen beide Felder dieser Tabelle in den Formularentwurf. Außerdem fügen wir über den Dialog ActiveX-Steuerelemente einfügen <\/b>ein Steuer-element des Typs Microsoft ListView Control, version 6.0 <\/b>zum Formular hinzu. Dieses sieht anschließend wie in Bild 3 aus.<\/p>\n Bild 3: Formular zum Hinzufügen von Dateipfaden<\/span><\/b><\/p>\n Darstellung des Drag and Drop-Ziels<\/b><\/p>\n Einfach nur ein ListView<\/b>-Steuerelement als Drag and Drop-Ziel zu verwenden, ist die einfachste Lösung. Aber ergonomischer wäre es, wenn das ListView<\/b>-Element sich direkt als Drag and Drop-Ziel zeigt – beispielsweise, indem wir einen passenden Text oder ein Icon darin abbilden.<\/p>\n Das soll später so aussehen wie in Bild 4. Im Ruhezustand soll das Ziel den Text Ziehen Sie die Datei in diesen Bereich <\/b>anzeigen, beim Ziehen einer Datei auf das Ziel den Text Lassen Sie die Maustaste los, um die Datei hinzuzufügen<\/b>.<\/p>\n Bild 4: Ändern des Drag and Drop-Ziels beim Ziehen mit der Maus<\/span><\/b><\/p>\n ImageList vorbereiten<\/b><\/p>\n Damit das geschieht, benötigen wir zunächst einmal zwei verschiedene Bilder, die wir je nach Zustand im ListView <\/b>anzeigen. Außerdem müssen wir die Größe der Bilddatei festlegen. Das ist der erste Schritt:<\/p>\n Fügen Sie über den Dialog ActiveX-Steuerelemente einfügen <\/b>ein Element des Typs Microsoft ImageList, version 6.0 <\/b>hinzu, das Sie gleich in ctlImageList <\/b>umbenennen. Das Steuer-element erscheint dann wie in Bild 5 links oben im Formular. Wenn Sie in die Formularansicht wechseln, wird das Steuer-element jedoch nicht sichtbar sein.<\/p>\n Bild 5: Das neu hinzugefügte ImageList-Steuerelement<\/span><\/b><\/p>\n Nach einem Doppelklick auf das Steuer-element in der Entwurfsansicht erscheint das Eigenschaftsfenster aus Bild 6. Hier stellen Sie für die Option Custom <\/b>die Größe der zu verwendenden Bilddatei ein, hier 71 x 311<\/b>.<\/p>\n Bild 6: Einstellen der Größe der Icons im ImageList-Steuerelement<\/span><\/b><\/p>\n Auf der zweiten Registerseite fügen Sie mit der Schaltfläche Insert Picture… <\/b>die beiden Bilder hinzu, die im Ruhezustand und beim Ziehen eines Elements über dem ListView<\/b>-Steuerelement angezeigt werden sollen. Die Index-Werte für die beiden Bilder lauten 1 <\/b>und 2<\/b>. Key <\/b>und Tag <\/b>können Sie ausfüllen, aber die Eigenschaften werden nicht benötigt (siehe Bild 7).<\/p>\n Bild 7: Einfügen des ersten Bildes in das ImageList-Steuerelement<\/span><\/b><\/p>\n ListView programmieren<\/b><\/p>\n Nun müssen wir das ListView<\/b>-Steuerelement erst einmal so programmieren, dass es das erste Bild aus dem ImageList<\/b>-Steuerelement anzeigt. Dazu deklarieren wir im Klassenmodul des Formulars zunächst einmal zwei Variablen. Die erste nimmt einen Verweis auf das Steuer-element lvwDragAndDrop <\/b>auf und erhält zusätzlich das Schlüsselwort WithEvents<\/b>, damit wir im gleichen Klassenmodul Ereignisse für dieses Steuer-element deklarieren können:<\/p>\n Die zweite soll einen Verweis auf das erste im ListView<\/b>-Steuerelement enthaltene Element enthalten:<\/p>\n Den Hauptteil der Arbeit erledigen wir in der Prozedur Form_Load<\/b>, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird. Dieses deklariert eine weitere Variable namens objImageList<\/b>, mit der wir auf das ImageList<\/b>-Steuerelement ctlImageList <\/b>verweisen wollen:<\/p>\n Dann ordnen wir der modulweit deklarierten Variable objDragAndDrop <\/b>einen Verweis auf die Eigenschaft Object <\/b>des Steuerelements lvwDragAndDrop <\/b>zu und schließlich der soeben deklarierten Variable objImageList <\/b>einen Verweis auf die Eigenschaft object <\/b>des ImageList<\/b>-Steuerelements.<\/p>\n Für das mit objDragAndDrop <\/b>referenzierte ListView<\/b>-Steuerelement stellen wir nun einige Eigenschaften ein. Die Eigenschaft SmallIcons <\/b>füllen wir mit einem Verweis auf das ImageList<\/b>-Steuerelement:<\/p>\n Für das Erscheinungsbild stellen wir unter Appearance ccFlat <\/b>ein (im Gegensatz zu cc3d<\/b>). BorderStyle <\/b>erhält den Wert ccNone<\/b>. Damit stellen wir sicher, dass man das ListView<\/b>-Steuerelement nicht an der Darstellung oder am Rahmen als solches erkennen kann. Für die Eigenschaft View <\/b>stellen wir lvwList <\/b>ein, da so das Bild angezeigt wird, das wir gleich zuweisen:<\/p>\n <\/p>\n Mit dem Wert ccOLEDragAutomatic <\/b>für die Eigenschaft OLEDragMode <\/b>und dem Wert ccOLEDropManual <\/b>für die Eigenschaft OLEDropMode <\/b>legen wir fest, dass wir mit Ereignisprozeduren auf Drag and Drop-Ereignisse reagieren können:<\/p>\n Danach leeren wir die Auflistung ListItems <\/b>des ListView<\/b>-Steuerelements mit der Clear<\/b>-Methode, damit eventuell bereits vorhandene Elemente gelöscht werden:<\/p>\n Schließlich fügen wir ein neues Listenelement hinzu und nutzen dazu die Add<\/b>-Methode von ListItems<\/b>:<\/p>\n Das damit neu angelegte Element mit dem Schlüssel a <\/b>und dem Wert 1 <\/b>für den Parameter SmallIcon <\/b>zeigt dann das mit dem Index 1 <\/b>versehene Bild aus dem ImageList<\/b>-Steuerelement an.<\/p>\n Wechseln des Bildes beim Ziehen auf das ListView<\/b><\/p>\n Damit beim Ziehen eines Elements auf das ListView<\/b>-Steuerelement das zweite im ImageList<\/b>-Steuerelement gespeicherte Bild angezeigt wird, stellen wir einfach die Eigenschaft SmallIcon <\/b>auf den Wert 2 <\/b>an. Das erledigen wir in der Prozedur, die durch das Ereignis OLEDragOver <\/b>ausgelöst wird und die dann wie folgt aussieht:<\/p>\n Das Ereignis feuert, wenn der Benutzer irgendein Objekt über das ListView<\/b>-Steuerelement zieht, und blendet das zweite Bild mit dem Text Lassen Sie die Maustaste los, um die Datei hinzuzufügen <\/b>ein.<\/p>\n Sollte es sich der Benutzer anders überlegen und die Datei nicht über dem Listenfeld fallen lassen, sondern irgendwo anders, dann sorgt diese Ereignisprozedur dafür, dass wieder das Bild mit dem Text Ziehen Sie Dateien in diesen Bereich <\/b>erscheint:<\/p>\n Das reicht allerdings nicht aus, wenn der Benutzer einmal mit der Datei über das ListView<\/b>-Steuerelement gefahren ist und die Maustaste dann über irgendeinem anderen Bereich als dem Formular loslässt. Dann bleibt das Bild mit der zweiten Meldung angezeigt.<\/p>\n Für diesen Fall gibt es keine einfache Lösung, die sich direkt durch ein Ereignis realisieren lässt. Eine Möglichkeit wäre es, ein Zeitgeber<\/b>-Ereignis zu implementieren, wobei der Zeitgeber beim ersten Überfahren des ListView<\/b>-Steuerelements mit einer Datei gestartet wird. Das Ereignis soll dann bei jeder Ausführung prüfen, ob der Benutzer die Maustaste bereits losgelassen hat, ohne das Element auf das ListView<\/b>-Steuerelement fallenzulassen.<\/p>\n Dazu erweitern wir objDragAndDrop_OLEDragOver <\/b>um eine Anweisung, welche die Eigenschaft TimerInterval <\/b>auf 100 Millisekunden einstellt:<\/p>\n Von diesem Zeitpunkt an wird die Zeitgeber-Ereignisprozedur alle 100 Millisekunden ausgelöst. Diese Prozedur füllen wir mit den folgenden Anweisungen:<\/p>\n Hier stellen wir einfach Me.TimerInterval <\/b>wieder auf 0 <\/b>ein, damit das Zeitgeber-Ereignis anschließend nicht mehr ausgelöst wird. Außerdem stellen wir die Eigenschaft SmallIcon <\/b>von objListItem <\/b>wieder auf 1 <\/b>ein, was das Bild mit dem Text Ziehen Sie Dateien in diesen Bereich <\/b>wieder einblendet.<\/p>\n Aber sorgt dies nicht unmittelbar nach dem Eintreten der Maus mit einer Datei in den Bereich des ListView<\/b>-Steuerelements dafür, dass die Anweisungen dieses Ereignisses ausgelöst und somit wieder die andere Meldung angezeigt wird Nein, das ist nicht der Fall: Denn das Zeitgeber-Ereignis wird erst dann ausgelöst, wenn der Mauszeiger das Steuer-element wieder verlässt.<\/p>\n Pfad der Datei in Textfeld ablegen<\/b><\/p>\n Wenn der Benutzer die Maustaste loslässt, nachdem er eine Datei über das ListView<\/b>-Steuerelement gezogen hat, soll der Pfad der gezogenen Datei in das Textfeld txtDateipfad <\/b>eingetragen werden. Das erledigen wir mit der folgenden Prozedur:<\/p>\n Diese stellt wieder das Bild im ListView<\/b>-Steuerelement auf das erste Bild ein. Außerdem prüft sie, ob das mit der Maus gezogene Element eine Datei ist. In diesem Fall trägt sie den Namen der ersten Datei, den sie aus dem Array aus Data.Files <\/b>mit dem Index 1 <\/b>ermittelt, in das Textfeld txtDateipfad <\/b>ein.<\/p>\n Damit haben wir die grundlegendste Lösung bereits erstellt. Wir werden nun Varianten dieser Lösung vorstellen.<\/p>\n Datei nach Drag and Drop in Verzeichnis kopieren<\/b><\/p>\n Wenn Sie die Drag and Drop-Funktion dafür nutzen wollen, Dateien aus beliebigen Verzeichnissen nicht nur per Verweis auf den aktuellen Pfad zu referenzieren, sondern diese auch noch in ein neues Verzeichnis kopiert werden sollen, können Sie wie folgt vorgehen.<\/p>\n Wir gehen dabei davon aus, dass Sie ein festes Verzeichnis als Zielverzeichnis verwenden wollen, dass sich im gleichen Verzeichnis befindet wie die Datenbankdatei mit der gewünschten Funktion. Den Namen dieses Verzeichnisses speichern wir in einer Konstanten, die wir im Kopf des Klassenmoduls definieren. Hier soll der Name des Verzeichnisses schlicht PDF <\/b>lauten:<\/p>\n Für dieses Beispiel haben wir das zuvor erstellte Formular übrigens in das Formular frmDateienPerDragAndDrop_Kopieren <\/b>kopiert.<\/p>\n Die Ereignisprozedur objDragAndDrop_OLEDragDrop <\/b>ändern wir wie folgt, indem wir einen Aufruf der Funktion DateiKopierenUndZuweisen <\/b>hinzufügen:<\/p>\n Die Funktion DateiKopierenUndZuweisen <\/b>nimmt den Pfad der in das ListView<\/b>-Steuerelement gezogenen Datei als Parameter entgegen:<\/p>\n Dann ermittelt es aus dem übergebenen Pfad den reinen Dateinamen und speichert diesen in der Variablen strDateiname<\/b>:<\/p>\n Den Zielpfad ermitteln wir aus dem aktuellen Datenbankverzeichnis, dem Verzeichnis aus cstrVerzeichnis<\/b> und dem Dateinamen:<\/p>\n Dann erstellen wir bei deaktivierter Fehlerbehandlung das in cstrVerzeichnis <\/b>angegebene Verzeichnis im Datenbankverzeichnis:<\/p>\n Dann kopiert die Funktion die Datei in das neue Zielverzeichnis und gibt den Dateinamen als Funktionswert zurück:<\/p>\n Dieser wird dann von der aufrufenden Ereignisprozedur in das Textfeld txtDateipfad <\/b>eingetragen. Die Angabe des kompletten Pfades ist hier nicht mehr nötig, da wir ja wissen, in welchem Verzeichnis sich die kopierte Datei befindet.<\/p>\n Ausschneiden und einfügen<\/b><\/p>\n Die Prozedur von oben können Sie noch dahingehend ergänzen, dass die gezogenen und somit kopierten Dateien anschließend am Ausgangsordner gelöscht werden.<\/p>\n Somit werden die Dateien also quasi verschoben. Dazu fügen Sie noch die folgende Zeile zur Prozedur DateiKopierenUndZuweisen <\/b>hinzu:<\/p>\n …<\/p>\n Sie können auch noch einen zusätzlichen Parameter zur Funktion hinzufügen, der angibt, ob die Dateien nach dem Verschieben am Ausgangsort gelöscht werden sollen:<\/p>\n Dieser Parameter wird dann in der If…Then<\/b>-Bedingung geprüft, in der sich die Kill<\/b>-Anweisung befindet.<\/p>\n Den Parameter fügen Sie dann im Aufruf von DateiKopierenUndZuweisen <\/b>wie folgt hinzu:<\/p>\n Hier wird der Parameter über den Wert eines Steuerelements namens chkLoeschen ermittelt. Dieses Steuer-element müssen Sie natürlich noch zum Formular hinzufügen. Dieses sieht dann anschließend wie in Bild 8 aus.<\/p>\n Bild 8: Formular mit Kontrollkästchen zum Aktivieren der Löschfunktion<\/span><\/b><\/p>\n Dateien zur Datenblattansicht hinzufügen<\/b><\/p>\n Gegebenenfalls wollen Sie Dateien per Drag and Drop zu den Datensätzen in einer Datenblattansicht hinzufügen. In dem Fall müssen wir improvisieren, denn in der Datenblattansicht können nur die Steuer-elemente Textfeld, Kombinationsfeld und Kontrollkästchen angezeigt werden.<\/p>\n Wir haben also keine Möglichkeit, ein ListView<\/b>-Steuerelement für jeden einzelnen Datensatz des Datenblatts anzuzeigen, auf das wir dann die Dateien ziehen könnten.<\/p>\n Hierzu legen wir ein neues Beispielformular an, anhand dessen wir auch gleich zeigen, welche Elemente sie alle zu diesem Formular hinzufügen müssen, um die Drag and Drop-Funktion zu implementieren.<\/p>\n Das Hauptformular soll frmDateienPerDragAndDrop_Datenblatt <\/b>heißen, das Unterformular, dass die Dateipfade in der Datenblattansicht anzeigt, heißt sfmDateienPerDrag-AndDrop_Datenblatt<\/b>.<\/p>\n Dem Unterformular weisen wir die Tabelle tblDateipfade <\/b>als Datensatzquelle zu und fügen die beiden Felder dieser Tabelle in den Detailbereich des Entwurfs ein. Außerdem legen wir für die Eigenschaft Standardansicht <\/b>den Wert Datenblatt <\/b>fest. Das Unterformular fügen wir dann nach dem Speichern und Schließen dem Entwurf des Hauptformulars hinzu.<\/p>\n Nun folgenden die für die Implementierung der Drag and Drop-Funktion wichtigen Schritte:<\/p>\n Für diese beiden Schritte öffnen Sie die beteiligten Formulare in der Entwurfsansicht, kopieren die Steuer-elemente mit Strg + V <\/b>und fügen diese mit Strg + C<\/b> in das Zielformular ein. Access meldet auf unserem Rechner beim Kopieren des ImageList<\/b>-Steuerelements einen unbekannten Fehler, stürzt aber nicht ab. Wir haben die Anwendung nicht neu gestartet, wie von der Meldung empfohlen, sondern einfach das nächste Steuer-element kopiert.<\/p>\n Der Weg ohne Fehler wäre, das Formular frmDateienPerDragAndDrop <\/b>zuerst in ein ein neues Formular zu kopieren und dann das Datenblatt et cetera hinzuzufügen.<\/p>\n Danach ergänzen wir den Code des Formulars. Als Erstes kopieren wir die beiden Deklarationszeilen für die Variablen objDragAndDrop <\/b>und objListItem<\/b>. Dann übertragen wir den kompletten Inhalt der Ereignisprozedur Form_Load<\/b>. Außerdem kopieren Sie die Prozeduren Detailbereich_MouseMove<\/b>, Form_Timer<\/b>, objDragAndDrop_OLEDragOver <\/b>und objDragAndDrop_OLEDragDrop<\/b>. Wenn Sie nun in die Formularansicht wechseln und eine Datei auf das ListView<\/b>-Steuerelement ziehen, löst dies einen Fehler aus, weil wir die Prozedur objDragAndDrop_OLEDragDrop <\/b>noch nicht angepasst haben. Dort soll der Dateiname nämlich noch in Me!txtDateipfad <\/b>gezogen werden:<\/p>\n Dies müssen wir so anpassen, dass die Information im aktuell markierten Datensatz der Datenblattansicht im Unterformular landet.<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_002.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_003.png\")
<\/p>\n![\"Ändern](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_006.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_007.png\")
<\/p>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_004.png\")
<\/p>\n![\"Einfügen](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_005.png\")
<\/p>\nDim <\/span>WithEvents objDragAndDrop As <\/span>MSComctlLib.ListView<\/pre>\nDim <\/span>objListItem As <\/span>MSComctlLib.ListItem<\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Dim <\/span>objImageList As <\/span>MSComctlLib.ImageList<\/pre>\n Set<\/span> objDragAndDrop = Me!lvwDragAndDrop.Object\r\n Set<\/span> objImageList = Me!ctlImageList.Object<\/pre>\n With<\/span> objDragAndDrop\r\n Set<\/span> .SmallIcons = objImageList<\/pre>\n .Appearance = ccFlat\r\n .BorderStyle = ccNone\r\n .View = lvwList<\/pre>\n
.OLEDragMode = ccOLEDragAutomatic\r\n .OLEDropMode = ccOLEDropManual<\/pre>\n
objDragAndDrop.ListItems.Clear<\/pre>\n
Set<\/span> objListItem = objDragAndDrop.ListItems.Add(, \"a\", , , 1)\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objDragAndDrop_OLEDragOver(Data As <\/span> MSComctlLib.DataObject, Effect As Long<\/span>, Button As <\/span> Integer, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>, State As Integer<\/span>)\r\n objListItem.SmallIcon = 2\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Detailbereich_MouseMove(Button As Integer<\/span>, Shift As Integer<\/span>, X As Single<\/span>, Y As Single<\/span>)\r\n objListItem.SmallIcon = 1\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objDragAndDrop_OLEDragOver(...)\r\n objListItem.SmallIcon = 2\r\n Me.TimerInterval = 100\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Timer()\r\n Me.TimerInterval = 0\r\n objListItem.SmallIcon = 1\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>objDragAndDrop_OLEDragDrop(Data As <\/span> MSComctlLib.DataObject, Effect As Long<\/span>, Button As <\/span> Integer, Shift As Integer<\/span>, x As Single<\/span>, y As Single<\/span>)\r\n objListItem.SmallIcon = 1\r\n If <\/span>Data.GetFormat(ccCFFiles) Then<\/span>\r\n Me!txtDateipfad = Data.Files(1)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>Const cstrVerzeichnis As String<\/span> = \"PDF\"<\/pre>\nPrivate Sub <\/span>objDragAndDrop_OLEDragDrop(Data As <\/span> MSComctlLib.DataObject, Effect As Long<\/span>, Button As <\/span> Integer, Shift As Integer<\/span>, x As Single<\/span>, y As Single<\/span>)\r\n objListItem.SmallIcon = 1\r\n If <\/span>Data.GetFormat(ccCFFiles) Then<\/span>\r\n Me!txtDateipfad = DateiKopierenUndZuweisen(Data.Files(1))\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Function <\/span>DateiKopierenUndZuweisen( strDateipfad As String<\/span>) As String<\/span>\r\n Dim <\/span>strZielpfad As String<\/span>\r\n Dim <\/span>strDateiname As String<\/span><\/pre>\n strDateiname = Mid<\/span>(strDateipfad, InStrRev<\/span>(strDateipfad, \"\") + 1)<\/pre>\n strZielpfad = CurrentProject.Path & \"\" & cstrVerzeichnis & \"\" & strDateiname<\/pre>\n
On Error Resume Next<\/span>\r\n MkDir CurrentProject.Path & \"\" & cstrVerzeichnis\r\n On Error GoTo<\/span> 0<\/pre>\n FileCopy strDateipfad, strZielpfad\r\n DateiKopierenUndZuweisen = strDateiname\r\nEnd Function<\/span><\/pre>\n...\r\nFileCopy strDateipfad, strZielpfad\r\nKill strDateipfad\r\nDateiKopierenUndZuweisen = strDateiname<\/pre>\n
Private Function <\/span>DateiKopierenUndZuweisen( strDateipfad As String<\/span>, Optional<\/span> bolLoeschen As Boolean<\/span>) As String<\/span>\r\n ...\r\n FileCopy strDateipfad, strZielpfad\r\n If <\/span>bolLoeschen Then<\/span>\r\n Kill strDateipfad\r\n End If<\/span>\r\n DateiKopierenUndZuweisen = strDateiname\r\nEnd Function<\/span><\/pre>\nPrivate Sub <\/span>objDragAndDrop_OLEDragDrop(...)\r\n objListItem.SmallIcon = 1\r\n If <\/span>Data.GetFormat(ccCFFiles) Then<\/span>\r\n Me!txtDateipfad = DateiKopierenUndZuweisen( Data.Files(1), Me!chkLoeschen)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_009.png\")
<\/p>\n\n
Private Sub <\/span>objDragAndDrop_OLEDragDrop(...)\r\n objListItem.SmallIcon = 1\r\n If <\/span>Data.GetFormat(ccCFFiles) Then<\/span>\r\n Me!txtDateipfad = Data.Files(1)\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
![\"Einfügen](\"..\/fileadmin\/_temp_\/2020_02\/pic_1226_008.png\")
<\/p>\n