复制文件时的错误

Question

语句
FileCopy "C:\OUT.BAT", "D:\"
老是出现“路径未找到”错误，源文件是存在的，是我自己建的，就是改为其他文件也是这个错误，真不找出错在哪。

Answer 1

FileCopy "C:\OUT.BAT", "D:\OUT.BAT"

Answer 2

目标文件缺文件名:Private Sub Command1_Click()
    Dim SourceFile, DestinationFile
    SourceFile = "C:\OUT.BAT"   ' 指定源文件名。
    DestinationFile = "d:\OUT.BAT"   ' 指定目的文件名。
    FileCopy SourceFile, DestinationFile   ' 将源文件的内容复制到目的文件中。
End Sub

Answer 3

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''模塊
Public Type SHFILEOPSTRUCT
        hwnd As Long
        wFunc As Long
        pFrom As String
        pTo As String
        fFlags As Integer
        fAnyOperationsAborted As Long
        hNameMappings As Long
        lpszProgressTitle As String '注釋：  only used if FOF_SIMPLEPROGRESS
End Type
Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_SILENT = &H4
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPublic Sub Copyfile(Ffrom As String, Tfrom As String)
Dim SHFileOp As SHFILEOPSTRUCT
    SHFileOp.wFunc = FO_COPY
    SHFileOp.pFrom = Ffrom + Chr(0)
    SHFileOp.pTo = Tfrom
    SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMATION
    Call SHFileOperation(SHFileOp)
    
End Sub 用法 Call Copyfile("c:\22.txt", "d:\11.txt") ' 把C盤22.txt的文件放入至D盤並更名為11.txt

Answer 4

FileCopy source, destinationFileCopy 语句的语法含有以下这些命名参数：
 
source 必要参数。字符串表达式，用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。 
destination 必要参数。字符串表达式，用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。 如果想要对一个已打开的文件使用 FileCopy 语句，则会产生错误。