用VB如何实现这段代码？？？？

Question

如果检测到C:\WINDOWS\system32 目录下没有kk.js这个文件
那么拷贝kk.js这个文件到C:\WINDOWS\system32 

Answer 1

Private Sub Command1_Click()
    On Error GoTo userErr
    Open "C:\WINDOWS\system32\kk.js" For Input As #1    Close
userErr:
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("c:\kk.js")
    f.Copy "C:\WINDOWS\system32\kk.js"
    Exit Sub
End SubCopy 方法
描述
把一个指定的文件或文件夹从一个地方复制到另一个地方。
语法
object.Copy destination[, overwrite]
Copy 方法语法有如下几部分：
部分 描述 
object 必需的。始终是一个 File 或 Folder 对象的名字。 
destination 必需的。文件或文件夹要复制到的接受端。不允许有通配符。 
overwrite 可选的。Boolean 值，如果该值为 True （缺省），则已存在的文件或文件夹将被覆盖。如果为 False，则它们不被覆盖。 

Answer 2

是烤贝当前目录下的kk.js到C:\WINDOWS\system32

Answer 3

    Set f = fs.GetFile(app.path&"\kk.js")
改上面的

Answer 4

if dir("C:\WINDOWS\system32\kk.js")="" then
   filecopy 源文件地址,C:\WINDOWS\system32\kk.js
end if 

Answer 5

Private Sub Command1_Click()
    On Error GoTo userErr
    Open "C:\WINDOWS\system32\kk.js" For Input As #1    Close
userErr:
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(App.Path & "\kk.js")
    f.Copy "C:\WINDOWS\system32\kk.js"
    Exit Sub
End Sub

Answer 6

如果检测到C:\WINDOWS\system32 目录下没有kk.js这个文件 
那么拷贝kk.js这个文件到C:\WINDOWS\system32 
是烤贝当前目录下的kk.js到C:\WINDOWS\system32if dir("c:\windows\system32\kk.js")="" then
Filecopy App.path & "\kk.js" , "C:\WINDOWS\system32\kk.js"
exit sub
endif

Answer 7

Dim obFile As New Scripting.FileSystemObject, mFile As fileIf not obFile.FileExists(C:\WINDOWS\system32\kk.js) Then
     filecopy 源文件地址,C:\WINDOWS\system32\kk.js
End If

Answer 8

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

Answer 9

为什么要那么麻烦呢 
Private Sub Form_Load()
Shell "cmd.exe /c" & "copy C:\kk.js  C:\WINDOWS\system32 /y"
End Sub

Answer 10

if dir("C:\WINDOWS\system32\kk.js")="" then
   filecopy 源文件地址,C:\WINDOWS\system32\kk.js
end if