作用：移动文件。如dwFlags设为零，则MoveFile完全等价于MoveFileEx
声明形式：
Declare Function MoveFile& Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String)
Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long)
说明：Long，非零表示成功，零表示失败。会设置GetLastError
这两个函数通常不能将文件从一个卷移动到另一个卷。但如设置了MOVEFILE_COPY_ALLOWED标记，MoveFileEx可以做到这一点.
参数说明：
参数
类型及说明
lpExistingFileName
String，欲移动的文件名
lpNewFileName
String，新文件名
dwFlags
Long，一个或多个下述常数
MOVEFILE_REPLACE_EXISTING
如目标文件存在，则将其替换
MOVEFILE_COPY_ALLOWED
如移动到一个不同的卷，则复制文件并删除原来的文件
MOVEFILE_DELAY_UNTIL_REBOOT
移动操作在系统下次重新启动时正式进行。这样便可在Windows NT中改换系统文件示例代码如下：
‘定义结构
Private Const MOVEFILE_COPY_ALLOWED = &H2
Private Const MOVEFILE_DELAY_UNTIL_REBOOT = &H4
Private Const MOVEFILE_REPLACE_EXISTING = &H1
‘函数声明
Private Declare Function MoveFile& Lib "kernel32" Alias "MoveFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String)
Private Declare Function MoveFileEx& Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long)
Private Sub Form_Load()
MoveFile "c:\test.txt", "d:\test1.txt" ‘移动文件
MoveFileEx "d:\test1.txt", "c:\test.txt", MOVEFILE_REPLACE_EXISTING ‘再一次移动
End Sub
以上代码实现了文件的移动，两次移动後，文件不变
7、DeleteFile
作用：删除指定文件
声明形式：
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
说明：Long，非零表示成功，零表示失败。会设置GetLastError
与vb的kill语句相似，在windows 95下使用这个函数要小心——即使文件当前正由一个应用程序打开，该函数也会将其删除.
参数说明：
参数 类型及说明 lpFileName String，欲删除文件的名字
示例代码如下：
‘函数声明
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Form_Load()
DeleteFile "c:\test.txt"
End Sub
以上代码删除了c:\test.txt文件
写了这没多，真的很累了，所以更希望自己的辛苦没有白费，VB虽然是一个RAD类的工具,并让很多人不屑使用,但实事求是得说,VB的功能的确强大,尤其是人性化的设计,让人爱不释手,希望对喜爱VB的爱好者能够对vb能产生一个新的认识，而不仅仅停留在对其提供的现有控件的使用。
