vb 复制文件并粘贴
答案:2 悬赏:0 手机版
解决时间 2021-01-06 14:14
- 提问者网友：孤山下
- 2021-01-05 13:46
vb 复制文件并粘贴
最佳答案
- 五星知识达人网友：愁杀梦里人
- 2021-01-05 14:17
简单的:
Private Sub Command1_Click()
filecopy "123.exe", "c:\123.exe"
End Sub追问这个方法可以是可以，但如果另外一个文件夹中已经有这个文件了就会出错，怎么写不出错啊？
如：被复制的文件不存在，就提示文件不存在，复制到另外的文件夹中的文件已经存在那个文件夹里了，就提示文件已经存在，不能复制等等的提示追答提示文件不存在就不必了,看看这样
Private Sub Command1_Click()
if dir("c:\123.exe") <> "" then
if msgbox("文件已存在,是否更新?", vbyesno) = vbno then
exit sub
else
kill "c:\123.exe"
filecopy "123.exe", "c:\123.exe"
end if
end if
End Sub
Private Sub Command1_Click()
filecopy "123.exe", "c:\123.exe"
End Sub追问这个方法可以是可以，但如果另外一个文件夹中已经有这个文件了就会出错，怎么写不出错啊？
如：被复制的文件不存在，就提示文件不存在，复制到另外的文件夹中的文件已经存在那个文件夹里了，就提示文件已经存在，不能复制等等的提示追答提示文件不存在就不必了,看看这样
Private Sub Command1_Click()
if dir("c:\123.exe") <> "" then
if msgbox("文件已存在,是否更新?", vbyesno) = vbno then
exit sub
else
kill "c:\123.exe"
filecopy "123.exe", "c:\123.exe"
end if
end if
End Sub
全部回答
- 1楼网友：琴狂剑也妄
- 2021-01-05 14:30
Dim temp As Byte
Dim sfile As String, dfile As String '变量声明
Dim i As Long
sfile = "C:\123.exe"
dfile = "D:\123.exe"
Open sfile For Binary As #1 '打开源文件
Open dfile For Binary As #2 '打开目标文件
For i = 1 To LOF(1)
Get #1, i, temp '读文件
Put #2, i, temp '写文件
Next
Close '全部关闭
不是原创但能解决你的问题
Dim sfile As String, dfile As String '变量声明
Dim i As Long
sfile = "C:\123.exe"
dfile = "D:\123.exe"
Open sfile For Binary As #1 '打开源文件
Open dfile For Binary As #2 '打开目标文件
For i = 1 To LOF(1)
Get #1, i, temp '读文件
Put #2, i, temp '写文件
Next
Close '全部关闭
不是原创但能解决你的问题
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯