Office: (Office 2007) Per Drag n Drop Dateipfad und Dateiname ermitteln

Kluhtu · 22. Juni 2017

Hallo Forum User,

ich probiere zur Zeit über eine ListBox oder ListView Element den Dateipfad sowie Dateinamen per Drag n Drop zu ermitteln.

Allerdings finde ich Netz dazu so viel das mich leider nicht wirklich weiterbringt.
Jedoch ohne Erfolg.
Jetzt versuche ich es eben über das Forum, vielleicht hat jemand eine Idee oder Code der mich weiterbringt.

Ziel ist es den Dateipfad - sowie Namen danach in einer Tabelle zu speichern.

Bedanke mich schon mal im Vorraus.

:)

Nouba · 24. Juni 2017

Vielleicht hilft Dir Drag&Drop von Dateien in Access weiter.

daolix · 24. Juni 2017

Hallo
Wenn du wie du sagst ein Listview im einsatz hast isses jetz nicht schwierig diese zu ermitteln

Code:

Private Sub ListView0_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim v As Variant
If Data.GetFormat(15) = True Then
For Each v In Data.Files
'// v ist jetzt der komplette FilePath
'// Hier jetzt dein Code
Next
End If
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kluhtu · 25. Juni 2017

daolix ich muss mich bei dir bedanken funktioniert zu 100% so wie ich es will mit allen Dateien...

Jetzt bräuchte ich nur noch eine kleine Hilfe bei E-Mails von Outlook welche ich direkt in das ListView ziehen will...

Funktion soll sein das in einem von mir definierten Pfad auf dem Rechner ein .msg File erstellt wird habe es mit diesem Code probiert aber funktioniert leider nicht....

Code:

Private Sub ListView3_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)

Dim msg As Outlook.MailItem
Dim file As Outlook.Attachment
Dim loc As String
Dim app As New Outlook.Application
Dim exp As Outlook.Explorer
Dim sel As Outlook.Selection
Dim res As Boolean

'-- enter location in which files will be copied
loc = "C:Temp"

'-- find selected email(s) used in drag-drop
Set exp = app.ActiveExplorer
Set sel = exp.Selection

'-- clear text field
txtFiles = ""

'-- parse each selected email
For Each msg In sel
txtFiles = txtFiles & "[" & msg.SenderName & "] " & msg.ConversationTopic & " : " & vbCrLf
msg.SaveAs loc & msg.fileName

If msg.Attachments.Count > 0 Then
On Error GoTo failed
For Each file In msg.Attachments
res = True
txtFiles.Text = txtFiles.Text & " - " & file.fileName
file.SaveAsFile loc & file.fileName
If res Then txtFiles.Text = txtFiles.Text & " [saved]" & vbCrLf
Next file
On Error GoTo 0
Else
txtFiles = txtFiles & " no attachments found." & vbCrLf
End If

Next msg
Exit Sub

failed:
txtFiles.Text = txtFiles.Text & " [FAILED : " & Err.Description & "]" & vbCrLf
res = False
Resume Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

daolix · 25. Juni 2017

Hallo

von der Fernbedienung Outlooks hab ich jetzt keinen Plan, ich weis aber das es einen solchen Code gibt (JosefP ist glaub ich der entwickler), musst du ggf mal hier im Forum suchen.
Alternativ könntest du nachfolgende Bas versuchen( als modul in deine db einfügen ), der Aufruf wäre dann ( in Anlehnung an vorhergehenden )

Code:

Private Sub ListView0_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim v As Variant
If Data.GetFormat(15) = True Then
For Each v In Data.Files
'// v ist jetzt der komplette FilePath
'// Hier jetzt dein Code
Next
else
OutlookDrops Data, "DeinLW:\DeinPath\" '
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

tw3aker · 22. Oktober 2018

Hallo,

wie ist es hier mit dem Drag and Drop bezüglich Mails ausgegangen?
Bräuchte in dem Thema aktuell dringen Hilfe..
Gruß

Office: (Office 2007) Per Drag n Drop Dateipfad und Dateiname ermitteln

Per Drag n Drop Dateipfad und Dateiname ermitteln

Per Drag n Drop Dateipfad und Dateiname ermitteln

Per Drag n Drop Dateipfad und Dateiname ermitteln

Per Drag n Drop Dateipfad und Dateiname ermitteln - Similar Threads - Drag Drop Dateipfad

Email Speicherung via Drag and Drop macht aus einem Punkt einen Unterstrich im Dateinamen

Mail Nachrichten verschieben per Drag and Drop

Formular ausfüllen mit drag an drop (hin und her schieben)

Dateipfad per Drag & Drop

Drag & Drop Teams funktioniert nicht mehr / Download-Ordner ändern

Auch Chaos Drag-n-Drop eine schöne Tabelle erstellen?

Outlook 2010 Text mittels Maus Drag&Drop KOPIERT statt verschieben