包含leavevb.net的词条( 四 )


WriteFile hNewFile, bBytes(1), Ubound(bBytes), Ret, ByVal 0
'Check for errors
If RetUbound(bBytes) Then MsgBox "Error writing file ..."
'Close the files
CloseHandle hOrgFile
CloseHandle hNewFile
'Move the file
MoveFileEx sTemp, "C:\KPDTEST.TST", MOVEFILE_REPLACE_EXISTING
'Delete the file
DeleteFile "C:\KPDTEST.TST"
Unload Me
End Sub
leavevb.net的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、leavevb.net的信息别忘了在本站进行查找喔 。

推荐阅读