做安装程序出现的问题用vb 的 filecopy ,和 fso 的 copyfile 都说没权限用Call Shell("cmd copy ") 倒是可以复制,但是打开好几个cmd窗口也不自己关闭,是不是我写的参数不对
各位帮帮忙吧

解决方案 »

  1.   

    '复制文件
    Type SHFILEOPSTRUCT
         hwnd As Long
         wFunc As Long
         pFrom As String
         pTo As String
         fFlags As Long
         fAnyOperationsAborted As Long
         hNameMappings As Long
         lpszProgressTitle As String
    End TypeDeclare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
      

  2.   

    试一试API函数CopyFilePrivate Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long【操作系统】
    Win9X:Yes
    WinNT:Yes【说明】
      复制文件。与vb的filecopy命令相似 【返回值】
      Long,非零表示成功,零表示失败。会设置GetLastError 【其它】
    【参数表】
      lpExistingFileName -  String,源文件名
      lpNewFileName --  String,目标文件名
      bFailIfExists --  Long,如果设为TRUE(非零),那么一旦目标文件已经存在,则函数调用会失败。否则目标文件被改写
      

  3.   

    2楼的可以使用,谢谢了3楼的也可以使用,但360会提示,点允许通过我找到了另外的方法
    Call Shell("cmd /c copy ") 加上这个/c就好了结贴了