以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  运行bat文件不起作用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189351)
--  作者：mxl810823
--  发布时间：2023/11/27 10:59:00
--  运行bat文件不起作用
@echo off
xcopy "E:\\FOXTABLE项目\\206\\LCM厂播音" "F:\\LCM厂播音" /s/i/y
exit
先是做了个Bat文件"fox.bat"，内容如上，然后在WINDOWS系统里加个定时任务运行BAT文件，我的目的是想定期自动运行拷贝项目文件到另一个地方保存，但是任务执行后没有拷贝任何文件。在CMD.EXE里直接运行“xcopy "E:\\FOXTABLE项目\\206\\LCM厂播音" "F:\\LCM厂播音" /s/i/y”是可以的，之后我在FT里调用也是一样的没有拷贝任何文件，不知道原因出在哪里，调用代码如下：

Dim Proc As New Process \'定义一个新的Process
Proc.File = "E:\\fox.bat" \'指定要打开的文件
Proc.Start()
--  作者：有点蓝
--  发布时间：2023/11/27 11:08:00
--  
Dim Proc As New Process \'定义一个新的Process
Dim batPath As String  = "E:\\fox.bat" \'指定要打开的文件
Proc.StartInfo.WorkingDirectory = "E:\\"
Proc.StartInfo.FileName = batPath
Proc.StartInfo.CreateNoWindow = False
Proc.Start()
--  作者：mxl810823
--  发布时间：2023/11/27 11:29:00
--  
Dim Proc As New Process \'定义一个新的Process
Dim batPath As String  = "E:\\fox.bat" \'指定要打开的文件
Proc.StartInfo.WorkingDirectory = "E:\\"
Proc.StartInfo.FileName = batPath
Proc.StartInfo.CreateNoWindow = False
Proc.Start()
运行这个也是一闪而过，没有拷贝文件呢
--  作者：有点蓝
--  发布时间：2023/11/27 11:42:00
--  
都加了exit执行完肯定就退出了，没有复制可能没有权限

试试

Dim Proc As New Process \'定义一个新的Process
Dim batPath As String  = "E:\\fox.bat" \'指定要打开的文件
Proc.StartInfo.WorkingDirectory = "E:\\"
Proc.StartInfo.FileName = batPath
Proc.StartInfo.Verb = "runas"
Proc.Start()
--  作者：mxl810823
--  发布时间：2023/11/27 12:48:00
--  
试了试
Dim Proc As New Process \'定义一个新的Process
Dim batPath As String  = "E:\\fox.bat" \'指定要打开的文件
Proc.StartInfo.WorkingDirectory = "E:\\"
Proc.StartInfo.FileName = batPath
Proc.StartInfo.Verb = "runas"
Proc.Start()
还是一闪而过，在BAT文件里把exit删除了也是一闪而过没有复制文件
--  作者：有点蓝
--  发布时间：2023/11/27 13:27:00
--  
中文问题，把bat文件另存为ANSI编码的文件

@echo off
xcopy "E:\\FOXTABLE项目\\206\\LCM厂播音" "F:\\LCM厂播音" /s/i/y
pause

代码
Dim Proc As New Process \'定义一个新的Process
Dim batPath As String  = "E:\\fox.bat" \'指定要打开的文件
Proc.StartInfo.WorkingDirectory = "E:\\"
Proc.StartInfo.FileName = batPath
Proc.StartInfo.CreateNoWindow = False
Proc.Start()
--  作者：mxl810823
--  发布时间：2023/11/27 14:10:00
--  
保存为ANSI编码可以了，谢谢