请教一个问题，关于VB的

fux2

我想写了一个复制文件的方法，但是使用的时候出错，请各位高手指教
以下为模块代码

1. Public Function CopyFile(Src As String, Dst As String) As Single
   
2.    Dim BTest!, FSize!
   
3.    Dim F1%, F2%
   
4.    Dim sArray() As Byte
   
5.    Dim buff As Integer
   
6.    Const BUFSIZE = 1024
   
7.    
   
8.    buff = 1024
   
9.    
   
10.    F1 = FreeFile
    
11.    Open Src For Binary As F1
    
12.    F2 = FreeFile
    
13.    Open Dst For Binary As F2
    
14.    
    
15.    FSize = LOF(F1)
    
16.    BTest = FSize - LOF(F2)
    
17.    ReDim sArray(BUFSIZE) As Byte
    
18.    
    
19.    Do
    
20.    If BTest < BUFSIZE Then
    
21.    buff = BTest
    
22.    ReDim sArray(buff) As Byte
    
23.    End If
    
24.    
    
25.    Get F1, , sArray
    
26.    Put F2, , sArray
    
27.    
    
28.    BTest = FSize - LOF(F2)
    
29.    If BTest < 0 Then
    
30.    Form1.jindu.Caption = "进度:100%"
    
31.    Else
    
32.    Form1.jindu.Caption = "进度:" & (100 - Int(100 * BTest / FSize)) & "%"
    
33.    End If
    
34.    Loop Until BTest <= 0
    
35.    
    
36.    Close F1
    
37.    Close F2
    
38.    CopyFile = FSize
    
39.    
    
40. End Function

复制代码

我在工程里用

1. CopyFile(rtp3.Caption, App.Path)

复制代码

报错“语法错误”……
怎么才可以让方法支持变量？

IamI

……调用的时候那个as single是干啥用的？

IamI

连贴非我意
根据函数返回方法推测是万恶的VB6，我想先问句你既然是用了模块，为啥调用时没有指明模块；另外根据严格的OOP模块是不能从静态中调用Form1（以名字调用）实例的；
还有就是……我记得VB6似乎不能抛弃函数的返回值，指定一个值接受返回值试试？

连贴非我意
根据函数返回方法推测是万恶的VB6，我想先问句你既然是用了模块，为啥调用时没有指明 ...
IamI 发表于 2010-10-20 21:06

捏连帖的熊猫~
忽然发现今晚偶已经遇到了三个连帖~

fux2

回复 IamI 的帖子


    后来发现没有那么复杂……
其实是我写错了……
CopyFile = FSize
这里……
调用方法应该是String = Copy(Scr,Dst)……
非我本意……