vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Hilfe !!! 
Autor: luet
Datum: 18.01.02 08:52

Moin,
Brauche dringend Hilfe sonst verzweifel ich noch !
Ich möchte mehrere markierte Dateien aus einem Listview in die Zwischenablage kopieren !
Das Problem ist , dass es als Text-string keine Probleme bereitet aber ich möchte diese Dateiliste auch im WindowsExplorer über Kontextmenü „einfügen“ nutzen, da bringt mir ein String natürlich nichts. Das Format , soviel weiß ich schon lautet irgendwie „ vbCFFiles“.
Aber die Anweisung Clipboard.SetData verlangt glaube ich einen LongWert und keinen String. Über jede Hilfe wäre ich dankbar, denn ich komme nicht weiter.
Hier mein bisheriger Source , bei dem Set Text verwendet wurde mit Ausgabe Msgbox :


Sub Zwischenablage(List As ListView, Dir As DirListBox)
Dim Dateien As String
Dim Counter As Integer
Dim X As Integer, Y As Integer
Dim Datei As String
Dim Pfad As String
Dim StrFiles() As String
Dim i As Long
Dim msg As String

If List.ListItems.Count > 0 And List.SelectedItem.Index <> -1 Then
For X = 0 To List.ListItems.Count - 1
'markierte Dateien in gesondertem Datenfeld zusammenstellen
If List.ListItems(X + 1).Selected = True Then
'interner Zähler
Counter = Counter + 1
Pfad = Dir.Path + "\"
Datei = List.ListItems(X + 1)

Dateien = Dateien + Pfad + Datei + "|"
End If
Next X

If Dateien <> "" Then
Clipboard.Clear
Clipboard.SetText Dateien
For i = LBound(StrFiles) To UBound(StrFiles)
If StrFiles(i) <> "" Then
msg = msg + StrFiles(i) & vbCrLf
End If
Next
MsgBox msg
End If
Else
'Fehlermeldung, Abbrechen per Schaltfläche!
MsgBox "Wählen Sie zuerst die zu verschiebene(n) Datei(en) an!", vbInformation,
End If

End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Hilfe !!!92luet18.01.02 08:52
Dieter, bitte melde Dich !54luet18.01.02 10:17
Re: Dieter, bitte melde Dich !233ModeratorDieter18.01.02 10:39
Große Klasse50luet18.01.02 11:02
Re: Große Klasse50Schorsch66699919.01.02 10:02
Re: sorry falsche spalte99Schorsch66699919.01.02 10:05
Re: Große Klasse238ModeratorDieter19.01.02 10:05
Re: Hilfe !!!482ModeratorDieter19.01.02 13:43
Weltbestes Forum !!!!!!!!!!!!!!!43luet19.01.02 16:16
Danke Dieter35luet20.01.02 15:30

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel