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
ملخص الذكاء الاصطناعي: 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.
كود المصدر
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
التعليقات الأصلية (3)
مسترجع من Wayback Machine