我的批处理文件：
SET username=%1
SET password=%2
net use "\\gessel\toys\name" %password% /user:shops\%username%
ECHO.%ERRORLEVEL%
:copy
Xcopy "\\gessel\toys\name\babytoys" "%appdata%\shops" /S /E
ECHO.%ERRORLEVEL%
IF ERRORLEVEL 0 goto disconnect
goto end
:disconnect
net use "\\gessel\toys\name\babytoys" /delete
goto end
:end
EXIT /B %ERRORLEVEL%
我从VBA调用了上面的批处理文件，代码如下：
call Shell(Environ$("COMSPEC") & " /c " & path & username & password, vbHide)
上面的代码工作正常。但我需要验证文件是否在 VBA 中复制。假设顾客输入了错误的用户名和密码，那么他将无法获得玩具信息。然后我必须显示一个消息框，将消息显示为“输入的信息错误”。为此，我尝试了这样的代码：
sub submit_click
Dim as error as integer
error = Shell(Environ$("COMSPEC") & " /c " & path & username & password, vbHide)
if error <> 0 …