markierung im windows explorer kopieren

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Unwesen.

    markierung im windows explorer kopieren

    hallo,

    also wie ich tastendruck simuliere und den ganzen schnickschnack weiß ich.
    ich habe einen ordner mit ca. 4000 bildern drinne.
    da ist es relativ aufwenidg, wenn ich für jedes bild, welches ich gerne behalten möchte, immer strg+v dann im nächsten ordner strg+c drücken muss.

    mein code bis zu der stelle lautet

    VB.NET-Quellcode

    1. If GetAsyncKeyState(Keys.F3) Then
    2. My.Computer.Keyboard.Sendkeys("^C")
    3. End If


    ich bin nur grade relativ inspirationlos, wie ich ihm sagen kann, dass er auf druck von "F3" die markierte datei in einem bestimmten ordner kopieren soll.

    Danke für jede hilfe

    ok nach zusammengoogeln der einzelnen notwendigen anweisungen hab ich hier mal ein unaufgeräumtes, aber funktionierendes programm geschrieben.

    die form selbst besteht nur aus einer textbox und einem label in welchem steht "bei Tastendruck auf F4 wird die markierte datei im angegebenen Zielordner Kopiert"

    dabei simuliere ich auf die markierte datei die tastenkombination STRG+C anschließen greife ich auf die zwischenablage zu und lese sämtlich vorhandene dateipfade aus, welche in der zwischenablage sind.

    diese werden in einer list(of string) gespeichert und in meinem beispiel wird nur der erste listeneintrag kopiert.

    hier alle API´s

    VB.NET-Quellcode

    1. Private Declare Function IsClipboardFormatAvailable Lib "user32" ( _
    2. ByVal wFormat As Integer) As Integer
    4. Private Declare Function OpenClipboard Lib "user32" ( _
    5. ByVal hwnd As Integer) As Integer
    7. Private Declare Function GetClipboardData Lib "user32" ( _
    8. ByVal wFormat As Integer) As Integer
    10. Private Declare Function DragQueryFile Lib "shell32.dll" Alias "DragQueryFileA" (ByVal HDROP As Integer, ByVal UINT As Integer, ByVal lpStr As String, ByVal ch As Integer) As Integer
    12. Private Declare Function CloseClipboard Lib "user32" () As Integer


    hier die eigentliche auslesung der dateipfade

    VB.NET-Quellcode

    1. Public Function GetClipboardFiles(ByRef Files As List(Of String)) As Integer
    2. Dim nHandle As Integer
    3. Dim nCount As Integer
    4. Dim nLen As Integer
    5. Dim sFile As String
    6. Dim i As Integer
    7. Dim index1 As Integer
    9. ' Prüfen, ob Dateien in der Zwischenablage vorhanden
    10. If IsClipboardFormatAvailable(CF_HDROP) > 0 Then
    11. ' Zwischenablage öffnen
    12. If OpenClipboard(0) <> 0 Then
    13. ' Handle holen
    14. nHandle = GetClipboardData(CF_HDROP)
    15. If nHandle <> 0 Then
    16. ' jetzt alle Dateinamen ermitteln
    17. nCount = DragQueryFile(nHandle, -1, vbNullString, 0)
    19. For i = 0 To nCount - 1
    20. nLen = DragQueryFile(nHandle, i, vbNullString, 0)
    21. index1 = 0
    22. sFile = "T"
    23. Do While index1 < nLen 'der string sfile wird nur ersetzt -> die länge bleibt erhalten. deswegen die länge von sfile mit der länge des pfades,der zu kopierenden datei, anpassen
    24. sFile = sFile + "T"
    25. index1 = index1 + 1
    26. Loop
    27. nLen = DragQueryFile(nHandle, i, sFile, Len(sFile))
    28. sFile = Mid(sFile, 1, Len(sFile) - 1) 'ein zeichen abziehen um das letzte leerzeichen zu löschen
    29. 'fragt mich nicht, warum er hinten immer ein leerzeichen hängt
    30. Files.Add(sFile)
    31. Next i
    32. End If
    34. ' Zwischenablage schließen
    35. CloseClipboard()
    36. End If
    37. End If
    39. GetClipboardFiles = nCount
    40. End Function


    das kopieren selbst sieht dann so aus:

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. If GetAsyncKeyState(Keys.F4) Then
    4. SendKeys.SendWait("^c")
    6. list1.Clear()
    7. nCount = GetClipboardFiles(list1)
    8. index = 0
    9. Dim strindex As Integer
    11. Try
    12. strindex = InStrRev(list1(0), "\")
    13. Catch ex As Exception
    14. MsgBox("Sie haben keine Datei ausgewählt!")
    15. Exit Sub
    16. End Try
    17. Try
    18. File.Copy(list1(0), TextBox2.Text + Mid(list1(0), strindex))
    19. Catch ex As Exception
    20. MsgBox("Die Datei existiert bereits im Zielordner")
    21. Exit Sub
    22. End Try
    24. End If
    25. End Sub


    @SystemUnknown:
    deine version ist sicherlich wesentlich einfacher für den programmierer.
    aber die problemstellung war ja folgende: ich habe einen ordner mit 4000 bildern, diese lasse ich ihn Ansicht->Filmstreifen durchlaufen und wenn es ein bild gibt, welches ich behalten möchte, drücke ich "F4" und das aktuell markierte bild wird dann in mein zielordner kopiert oder wenn ich möchte auch verschoben. somit habe ich aus meinen 4000 bildern nurnoch meine ausgewählten bilder in einem anderen ordner und den ordner mit 4000bildern kann ich löschen.

    aber trotzdem danke für den link, er ist wirklich gut und ich habs mir angeschaut, den kann ich schon für mein nächstes prog verwenden ;P

Facebook
Telefonspende