请问这对吗，能说明错在什么地方吗？

Question

filecopy pd_path & rq & "\4102.dat",net_path & rq & "\4102.ff"

Answer 1

dim net_path string
应该是dim net_path as string 吧

Answer 2

dim pd_path as string
dim rq as string
dim net_path as string  '少了aspd_path=(combo1_path.text)
rq=(combo2_date.text)
net_path=(comb03_netpath.text)filecopy pd+rq&"\4102.dat",net_path+rq"\4102.ff"
改为：
filecopy pd_path+rq+"\4102.dat",net_path+rq+"\4102.ff"

Answer 3

我进一步的更改啦这个程序如下：Private Sub Command1_Click()
Dim pd As String
Dim rq As String
Dim PdRq As String
Dim net As String
Dim NetRq As String
rq = (Combo1_date.Text)
pd = (Combo2_path.Text)
net = (Combo3_netpath.Text)
PdRq = (pd + rq & "\")
NetRq = (net + rq & "\")
'Print PdRq
'Print NetRq
FileCopy PdRq & "*.*", NetRq
End Sub一但运行系统就提示错误的文件明或号码，但我用Print把执行结果显出出来如下，C:\CWK-DAT\01\*.*    C:\SERVER\CWK-DAT\01\我并没有找出有什么导常得，不知道这次又错在什么地
方。。

Answer 4

一点补充LLLLLL－－－）））（（（（））
我是做一个拷贝功能，在拷贝前根据COMBO控件给出指定的目录路径（Combo1_path=C:\CWK-DAT\)，再找到和COMBO2＿DATE控件相对应的月份（COMBO2＿DATE＝01）目录，拷贝里面所有文件。。同样被指的目的路径也是如此操作。