Filecopy werkt niet

[eeyk]

Als ik dit gebruikt werkt het niet

FileCopy Virus.FileName, App.Path & "\Secure\" & Mid$(Virus.FileNameShort, 1, Len(Virus.FileNameShort) - 1) & ".secure"

en dit werkt ook niet

FileCopy Virus.FileNamePath, App.Path & "\Secure\" & Mid$(Virus.FileNameShort, 1, Len(Virus.FileNameShort) - 1) & ".secure"

 

[Dhaann]

Welke VB Versie gebruik je?

Vanaf VB2003 en hoger is de code:

System.IO.File.Copy("path van het bestand dat je wilt kopiëren", "path waar je het bestand naar toe wilt kopiëren")

In VB6 en lager weet ik het niet precies (maar je hebt altijd nog Google )

 

[That Guy]

filecopy [COLOR="DarkRed"]CurrentLocation[/COLOR], [COLOR="darkred"]DestinationLocation[/COLOR]

dus, zoiets....

Dim sNow as string: sDest as string

sNow = app.path & app.exename & ".exe"  [COLOR="SeaGreen"]'ofzo[/COLOR]
sDest =  App.Path & "\Secure\" & app.exename & ".secure"

FileCopy sNow, sDest

weet niet precies wat eeykie wilde, maar dit werkt.....

 

[eeyk]

Werkt allebij niet ik gebruik

VB6

 

[Dhaann]

Misschien heb je hier wat aan:

http://www.vbforums.com/showthread.php?t=354738