CopyFileAny
This code allows you to copy any file, including your application to another destination at runtime. Note: This code has only been tested on Windows 98 using Visual Basic 6.0
AI
Shrnutí AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Zdrojový kód
Public Function CopyFileAny(currentFilename As String, newFilename As String) Dim a%, buffer%, temp$, fRead&, fSize&, b% On Error GoTo ErrHan: a = FreeFile buffer = 4048 Open currentFilename For Binary Access Read As a b = FreeFile Open newFilename For Binary Access Write As b fSize = FileLen(currentFilename) While fRead < fSize DoEvents If buffer > (fSize - fRead) Then buffer = (fSize - fRead) temp = Space(buffer) Get a, , temp Put b, , temp fRead = fRead + buffer Wend Close b Close a CopyFileAny=1 Exit Function ErrHan: CopyFileAny=0 End Function
Původní komentáře (3)
Obnoveno z Wayback Machine