本人需要定时将一个文件传送到服务器中

[littleboy]

本人需要定时将一个文件传送到服务器中,但我利用shell命令调用批处理命令(内含copy命令),
但每次调用shell都要增加一个进程,这样时间一长,系统由于系统资源不够而死机,请问怎样实现将文件定时传送到服务器上.
注:由于此文件一直处在打开状态.因此不能使用filecopy命令.

[WHQ]

文件被打开时当然可以用FileCopy的，否则的话系统是怎么拷贝的，而且我在VC中拷过没有问题。

[wuxiaomei]

vb 当文件打开时，不能filecopy.

[Wonny]

先关闭再 copy 再打开，行不？

[Un1]

自己写FileCopyA函数：

Public Sub FileCopyA(Des As String, Sou As String)
Dim lc As Long
lc = FileLen(Sou)

Dim l As Long
l = FreeFile()

Open Sou For Binary Shared As #l

On Error Goto ErrorHandle

Dim lfs As Long
lfs = l

l = FreeFile()
Open Des For Binary As #l

Dim lfd As Long
lfd = l

Dim bt() As Byte
Redim bt(lc-1)

Get #lfs,,bt
Close #lfs
lfs = 0

Put #lfd,,bt
Close #lfd

exit sub


ErrorHandle:
...
End Sub

'当然如果文件比较大那得一段一段拷才行。