2. Tech
  3. Copy the file from the local machine to the remote

Copy the file from the local machine to the remote

xiaoxiao2021-03-06  41

Option expedition

PRIVATE SUB Command1_Click () DIM DSTFILEPATH AS STRINGDIM FS AS Object

DstFilePath = "// chenfeng / c: /" 'target file path set fs = createObject ("scripting.filesystemObject")' Create a file system object if fs.fileexists (DstfilePath & "cstest.txt") THEN IF MSGBOX ("You The test paper has been sent, and it will be sent again.

Me.MousePointer = 11 fs.copyfile "c: /cstest.txt", dstfilepath 'copy file to target folder me.mousepointer = 0nd Sub

转载请注明原文地址:https://www.9cbs.com/read-51438.html

9cbs

New Post(0)