kopier *.txt til clipboard

prøv at se her

http://www.cpcug.org/user/clemenzi/technical/Languages/CopyToClipboard.htm

hmm... ved ikke helt præcist om det her virker.. et skud i tågen(jo det skal virke.. :D), men prøv det.. Nu tager jeg bare et eksemple og propper den i Command1_Click


Sub Command1_Click()
dim txtinput as string
open fil for input as #1
do until eof(1)
txtinput = txtinput % vbcrlf
loop
close #1
clipboard.clear
clipboard.settext txtinput
End Sub

erstat fil med sti og filnavn.
prøv det, måske en enkelt stavefejl eller 2... men finder du nok ud af...

Hele humlen ligger i

  clipboard.clear
  clipboard.settext

Hmmmmm, jeg prøver igen det er ikke filens indhold jeg ønsker at få ind i clipbordet men hele filen (test.txt)

Hvad mener du - vil du have filens navn eller dens indhold ind.

Lad os sige du har en fil der hedder

c:\test.txt

I filen står en linie:

"Hej med dig"

Hvad skal kopieres til clipboard?

Prøv at forklar hvad du vil opnå - vil du kopiere en fil fra et sted til et andet, er der en helt anden måde at gøre det på

Det er hele filen, jeg ønsker at få over i clipbordet, som at trykke ctrl + c på keyboard (SendKeys vbCtrlMarsk + vbKeyC, true)

Hvad er der så i vejen med at bruge din egen sendkeys?

Jo mere du forklare, jo bedre svar får du.

Jeg kan ikke få sendkeys til at virke, når jeg trykker vtrl + v skriver den sendkeys ctrlv

hmm.. har jeg egentligt aldrig prøvet.. men vil skyde på at du bare åbner filen som binary og gemmer indholdet i en string og så kopiere den string til clipboard, ved ikke helt om det kan bruges til noget, men ellers kan du experimenter lidt med clipboard.setdata og se hvad du kan med den...

hmm.. hvordan er det lige du har skrevet den sendkeys?.. sendkeys("ctrl"+"v"?)?.. eller prøv lige at kopiere det kode du har brugt herind...

Det jeg skal bruge det til er at når der er en der bruger mit program og ikke har Outlook, skal vedkommne åbne sit eget e-mail system og indsætte filen som vedhæftede fil ved at trykke på ctrl + v

Jeg har skrevet det som oppe over SendKeys vbCtrlMarsk + vbKeyC, true

hvis du skal bruge sendkeys til at kopiere en fil med skal du bruge sendkeys(chr(3)), men der skal du jo så har makeret filen i et explorer vindue, eller noget.. sendkeys(chr(3)) er det samme som at trykke ctrl+c.. og sendkeys(chr(22)) er det samme som ctrl+v..

ok... på den måde... men der skal du jo stadig have det makeret i et explore vindue..

men tror lige netop at det er "SendKeys vbCtrlMarsk + vbKeyC, true" der er galt med, fordi at den ikke "holder" ctrl nede?..

Hvis du bare havde skrevet alt den forklaring fra starten...

Tror jeg hopper af, har ikke meget erfaring med SendKeys.

Her er lidt kode
File1.Path = "C:\"
File1.FileName = "test.txt"
SendKeys (Chr(3))

du kan ikke bruge sendkeys i dette tilfælde så.. den kan du kun bruge hvis du f.eks, makere filen i et normalt explore vindue og så bruger Sendkeys(chr(3)).. så glem sendkeys i dette tilfælde...
Men prøv clipboard.setdata, har ikke selv leget med det endnu, men vil da tro at den kan bruges.

clipboard kan kun bruges til text & billeder

hmm.. du kan ikke bruge clipboard.setdata, det er kun til billeder i vb.. fandt lige en source kode til det, der var lidt mere i det end bare nogle simple få linjer.. du kan hente den her: rr.exhedra.com\Upload_PSC\ftp\Copy_and_P46467152002.zip

Kanon det er jo genialt tak tak og atter tak