返回列表下一主題上一主題發帖

[發問] 二台電腦之間檔案複製有時不行呢？

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-8-21 16:39 | 只看該作者

[發問] 二台電腦之間檔案複製有時不行呢？

本帖最後由 dechiuan999 於 2014-8-21 16:41 編輯

各位大大好：

TEST.rar (22.9 KB)
小弟想利用net指令來

樓主熱帖

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

發表於 2014-8-21 18:25 | 只看該作者

本帖最後由 dechiuan999 於 2014-8-21 18:31 編輯

TEST.rar (21.79 KB)

Sub mXcopy()
Dim Wsh As IWshRuntimeLibrary.WshShell '此宣告是否有誤呢？
Dim sourceFile As String
Dim destinationFile As String
Dim fs As Scripting.FileSystemObject '此宣告是否有誤呢？
Dim cmdStr
Dim retVal
Set Wsh = CreateObject("WScript.Shell")
Wsh.Run "cmd /c net use O: \\multibay\SCAN"
sourceFile = "O:\" & mTb.Text & ".PDF"
destinationFile = "D:\TEMP\."
Set fs = CreateObject("scripting.filesystemobject")
If fs.FileExists(sourceFile) Then
cmdStr = "cmd /c copy " & sourceFile & " " & destinationFile
retVal = Shell(cmdStr, 0)
Else
MsgBox "輸入的中文標籤檔案名稱不存在" & vbCrLf & "請重新輸入指定的中文標籤"
End If
Wsh.Run "cmd /c net use O: /delete"
Set fs = Nothing
Set Wsh = Nothing
End Sub

複製代碼

回復 1# dechiuan999

補充說明如附檔

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2014-8-23 10:21 | 只看該作者

回復 2# dechiuan999
1. 定義在 Sub 區塊內的變數只能在該區塊內使用, (其他的 Sub 內看不到該變數)
若每個 Sub 都需要用到(或是需要在 Sub 間傳遞)的變數,
請在 Module 內的 Option Explicit 上方,
使用 Public 取代 Dim 定義全域變數.
如:
Public Wsh As Object. fs As Object
Option Explicit
Sub nn()
...
End Sub

2.
Dim Wsh As Object
...
Dim fs As Object
改定義成 Object 試試.

TOP

dechiuan999