Hogy készíthetek önsokszorosító programot?

A másolást így lehet visual basic .NET-ben megcsinálni:

Dim FileToCopy As String

Dim NewCopy As String

FileToCopy = "C:\Users\Owner\Documents\test.txt"

NewCopy = "C:\Users\Owner\Documents\NewTest.txt"

If System.IO.File.Exists( FileToCopy ) = True Then

System.IO.File.Copy( FileToCopy, NewCopy )

MsgBox("File Copied")

End If

Abban már nem vagyok biztos, hogy egy futó fájlt is tudsz másolni vele. Ezt még nem próbáltam.

De találtam egy másik kódot, ez viszont még lehet működik is megnyitott fájl esetén:

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _

(ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _

ByVal bFailIfExists As Long) As Long

Public Function CopyFileA(OldFileName As String, NewFileName As String) As Boolean

On Error Resume Next

If CopyFile(OldFileName, NewFileName, False) <> 1 Then

MsgBox "Error copying file", vbExclamation,

Else

CopyFileA = True

End If

End Function

Ha nem jó aCopyFile függvény, akkor nézd meg a paraméterezését, lehet változtattak valamit 64 biten tuti más lesz. 32 biten szerintem jó. de nem futattam le.