Jeg har et billede på disken jeg vil kopiere fra et sted til et andet.

Hvad med

strSource = "C:\billede.gif"
strDestination = "C:\Mine billeder\billede.gif"

FileCopy strSource, strDestination

Mvh

Jeg bruger et program AcdSee32, der skal man godt nok bruge 2 knapper, men det husker destinationstedet til næste billede/gang. Brug ALT + C.
Yderligere kan det vis ca. 20 billder på engang i et skærmfelt.

Jeg har vist nok fundet ud af at FileCopy kommandoen kun findes i VBA og ikke VB, men i stedet kan du benytte nedenstående...

dim fso as object

set fso = createobject("Scripting.filesystemobject")
strSource = "C:\billede.gif"
strDestination = "C:\Mine billeder\billede.gif"

fso.FileCopy strSource, strDestination

set fso = nothing

FileCopy findes også i VB6.

Ellers er sourcen til en tilsvarende funktion her...

Sub FileCopy(strSource As String, strDestination As String)
  Dim fa As Integer, fb As Integer, b As Byte
  fa = FreeFile
  Open strSource For Binary As fa
  fb = FreeFile
  Open strDestination For Binary As fb
  While Not Eof(fa)
    Get #fa,,b
    Put #fb,,b
  Wend
  Close #fa
  Close #fb
End Sub

Ups, for ikke at udelukke muligheden for multitasking helt kan man gøre sådan her...

Sub FileCopy(strSource As String, strDestination As String)
  Dim fa As Integer, fb As Integer, b As Byte
  fa = FreeFile
  Open strSource For Binary As fa
  fb = FreeFile
  Open strDestination For Binary As fb
  While Not Eof(fa)
    Get #fa,,b
    Put #fb,,b
    DoEvents
  Wend
  Close #fa
  Close #fb
End Sub

I http://www.eksperten.dk/spm.asp?id=9502 har jeg også vist en løsning, der benytter Win32's indbyggede rutine til at flytte filer således man kan få en progressbar mv.

Kewl

winkill>> Kewl ???

baunsgaard >> Har du selv lavet koden til http://www.eksperten.dk/spm.asp?id=9502 ???

winkill>> Enten mig selv eller måske har jeg fundet det i en programstump jeg havde liggende - det kan jeg ikke lige huske. Hvorfor??

Jeg er blot nysgerig, det er sjældent at folk kalder div dll filer direkte :)

Well, jeg er tidligere C++ og Delphi programmør og gennem dette kender jeg Win32 API'et bedre end mange hjørner af VB :-) Jeg har før prøvet at lave ting vha. API'et som kunne gøres direkte fra VB...

Hvad f... sker der med Zyga - der må da være nogle af disse forslag han kan bruge!

Undskyld ventetiden :)

Winkill >> Det er faktisk rimelig almindeligt at bruge API kald i visualbasic! Giver faktisk mange muligheder!