API中的CopyFile怎么用?

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

粘贴又是哪个函数呢?

解析嫌李:

移动一个文件，一般可使用：

BOOL WINAPI MoveFile(LPCSTR Existing, LPCSTR Target)

其中 Existing是现有文件或目录，Target是目标文件或目录。此函数还可以用来对文件改名。例：

MoveFile("D:\\Temp\\a.txt", "E:\\MyPath\\b.txt")将D:\Temp\a.txt移动到E:\MyPath并改名为b.txt

＞API中的CopyFile:

BOOL WINAPI CopyFile(LPCSTR oldFileName, LPCSTR newFileName, BOOL failIfExists)

oldFileName: 原始文件名；

newFileName: 目标文件名；

failIfExists: 目标文件已存在时的处理办法。TRUE则不覆盖并返回失败标记，FALSE则覆盖。

返回值：TRUE代表成功，FALSE代表失败。

＞粘贴又是哪个函数呢?

粘贴的功能不是一个函数能够御者伍实现的．对剪贴板的 *** 作Windows有一系列函数．粘贴必须要用的是 OpenClipboard(), GetCipboardData()和CloseClipboard().

拷贝－粘贴的对象为文本或其他二进数镇或据（如图像）时可能还要辅助其他的API.

覆盖文件不管是从系统的角度凯芦还是用户的角度来看，都属于一种危险 *** 作，因为一个文件是否有用、是否重要，完全是靠用户主观判断的，电脑是不可能自动帮你作出判断的，所以不管是用API函数还是用VB本身的命令，在覆盖文件时都会做出提示的。

另外，完全可以用迅孙谨VB本身的命令来实现你的目的，无须用到API函数的（使亩基用API函数的一个原则就是VB本身的功能无法满足要求时才用）：

If Dir("c:\windows\3.exe") <>"" Then Kill "c:\windows\3.exe"

Name "c:\3.exe" As "c:\windows\3.exe"

下面的代码执行成功：

Sub xxx()

    Dim wsh

    Set wsh = CreateObject("WScript.Shell")

    wsh.Run "清旦渗notepad.exe"

    Set wsh = Nothing

End Sub

我认为，迟物你修改wsh.Run的参数，可以调用系统的move命令实现你的功能，估计是这样，你可能需要调试答脊：

Sub movefile(PTH, FILES, PTH2)

    Dim wsh

    Set wsh = CreateObject("WScript.Shell")

    wsh.Run "MOVE /Y " & PTH & "\" & FILES & " " & PTH2 & "\"

    Set wsh = Nothing

End Sub

---