Dateien bei Drag and Drop umbenennen

Im Beispielformular frmExplorerUmbenennen findest Du ein Beispiel, wie Du die Ereignisse des amvExplorers nutzen kannst. Wenn Du diesem Explorer eine PDF-Datei hinzufügst, wird diese direkt nach einem bestimmten Schema umbenannt, in diesem Fall mit Datum, Uhrzeit, KundeID und Kundenname.

Du kannst so PDF-Dokumente aus verschiedenen Quellen hinzufügen, beispielsweise aus anderen Ordnern oder auch aus E-Mail-Anlagen.

Um dies zu realisieren, implementieren wir das Ereignis objExplorer_WatchEvent. Das erledigen wir, indem wir oben im Codefenster im linken Auswahlfeld den Eintrag objExplorer auswählen und im rechten den Eintrag WatchEvent.

Diese Ereignisprozedur liefert uns den Pfad, in den die Datei eingefügt wurde, sowie den alten Dateinamen und mit dem Parameter stcEventAction die Aktion, die durchgeführt wurde. Wir prüfen, ob die Aktion FILE_ACTION_ADDED lautet. In diesem Fall und wenn die Dateiendung .pdf lautet, soll die Datei umbenannt werden. Dazu warten wir noch ab, bis der Einfügen-Vorgang abgeschlossen ist, und zwar in einer Do While-Schleife. Anschließend nutzen wir die API-Funktion ShellOperationFileRename, um die Datei umzubenennen:

Private Sub objExplorer_WatchEvent(ByVal sFolderPath As String, _
    ByVal sFileName As String, stcEventAction As Long

  Dim sFileNameNew As String
  sFileNameNew = GetLongDateTime(Now) & "-" & Me.KundeID & "-" & Me.Firma & ".pdf"

  If stcEventAction = FILE_ACTION_ADDED Then
    If InStr(sFileName, ".pdf") > 0 Then
      Do While IsFileInWork(sFolderPath & "\" & sFileName) = True
        DoEvents
      Loop
      ShellOperationFileRename sFolderPath & "\" & sFileName, _
          sFolderPath & "\" & sFileNameNew
    End If
  End If

End Sub

Hinweis

Achtung: Die für diese Anleitung nötige Beispieldatenbank erhältst Du nach dem Kauf des amvExplorers:

Zum Shop ...

Hast Du den amvExplorer bereits gekauft, findest Du diesen nach der Anmeldung im Shop unter Mein Konto|Sofortdownloads.