如果只是單純要做複製檔案之類的檔案操作,可以try看看另一個比較有效率的作法
加入Microsoft Scripting Runtime Library參考,然後用FileSystemObject(FSO)操作
Private Sub CopyFile(ByVal FileName As String,ByVal Target as String)
Dim FS As New FileSystemObject
Call FS.CopyFile(FileName, Target)
End Sub
可以參考MSDN: http://0rz.net/6b0zQ
※ 引述《acosy (acosy)》之銘言：
: 感激不盡! 但是發現處理比較大檔案時,
: 程式會當掉, 且頗吃資源, 是因為沒有用 buffer 就邊讀編寫
: 的關係嗎?
: 另外, 表單中不知如何實現動態文字,
: 想呈現 xx% 的進度, 卻到 100 % 才顯現出來.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.88.170