查看完整版本: 文件未找到

文件未找到

调试代码，出错，反复修改，无收获！
完成几个步骤，前面的执行无误，最后一步报错：

不解：这个文件未找到，是指什么文件，如果是我再代码中指定的文件，查看过目录，是存在的……
困惑！

把代码贴出来瞧瞧？

Const OREMOTE = "banben\"           ' 首先定义ftp的目录和帐号密码以及地址
Const USERNAME = "*"
Const PASSWORD = "*"
Const HOSTNAME = "*"

Dim session
Dim fso
Dim ftp
Dim oID
Dim oFileName
Dim kehu
Dim banbenhao

Const local = "C:\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ftp = CreateObject("ChilkatFTP.ChilkatFTP")

' If Not fso.FolderExists("C:\")
' Then fso.CreateFolder("C:\")
' End If

[url=ftp://ftp.Username]ftp.Username[/url] = USERNAME
[url=ftp://ftp.Password]ftp.Password[/url] = PASSWORD
[url=ftp://ftp.Hostname]ftp.Hostname[/url] = HOSTNAME
OK = [url=ftp://ftp.Connect]ftp.Connect[/url]             ' 链接ftp

[url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] OREMOTE           ' 开始进入ftp的制定目录。

oID = GetfieldValue("project").GetValue        ' 这里的字段本来应该是取cq里面的某个字段的值，由于在外部调试就直接赋值了
[url=ftp://ftp.CreateRemoteDir]ftp.CreateRemoteDir[/url] oID            ' 如果需要新建就用这句，如果是已有的目录来变更当前路的话就用下句
[url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] oID

kehu = GetfieldValue("kehudaihao").GetValue
[url=ftp://ftp.CreateRemoteDir]ftp.CreateRemoteDir[/url] kehu
[url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] kehu

banbenhao = GetfieldValue("banben").GetValue
[url=ftp://ftp.CreateRemoteDir]ftp.CreateRemoteDir[/url] banbenhao
[url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] banbenhao

king = [url=ftp://ftp.MGetFiles]ftp.MGetFiles[/url]("*.*", local)         ' 用mgetfiles来获得ftp指定目录中的所有文件，copy到上面定义的目录中
[url=ftp://ftp.Disconnect]ftp.Disconnect[/url]
fso.DeleteFile local & "*.html"          ' 删除html文件，主要是软件版本报告
fso.DeleteFile local & "*.xls"          ' 删除excle文件，主要是测试报告
fso.DeleteFile local & "*.doc"          ' 删除word文件，主要是软件版本说明书
fso.DeleteFile local & "*.rar"          ' 删除以前压缩的文件
fso.DeleteFile local & "*cs_*.txt"         ' 删除config spec纪录文件

[color=red]Dim Rarexe               ' WinRar执行文件地址
Dim Source               ' 压缩前原始文件
Dim Target               ' 压缩后目标文件
Dim FileString              ' Shell指令中的字符串
Dim Shell
Dim RetCode

Rarexe="C:\WinRAR.exe"            ' 这里调用winrar。注意文件的存在性
Source="C:\*PCB01*.bin c:\BPLGUInfoCustom* c:\scat*.txt"   ' 压缩文件原始位置
Target="C:\"&banbenhao&".rar"          ' 压缩文件目标位置
FileString = Rarexe & " m " & " -m5 " & Target & " " & Source  ' 这里开始压缩打包，m是删除文件压缩，-m5是最好的压缩方式
Set Shell = CreateObject("WScript.Shell")
RetCode = Shell.Run(FileString,1, True)[/color]
[color=red]  [/color][url=ftp://ftp.Username][color=red]ftp.Username[/color][/url][color=red] = USERNAME
  [/color][url=ftp://ftp.Password][color=red]ftp.Password[/color][/url][color=red] = PASSWORD
  [/color][url=ftp://ftp.Hostname][color=red]ftp.Hostname[/color][/url][color=red] = HOSTNAME
     OK = [/color][url=ftp://ftp.Connect][color=red]ftp.Connect[/color][/url]
  
  [url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] OREMOTE
  oID = GetfieldValue("project").GetValue
  [url=ftp://ftp.CreateRemoteDir]ftp.CreateRemoteDir[/url] oID
  [url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] oID
  kehu = GetfieldValue("kehudaihao").GetValue
  [url=ftp://ftp.CreateRemoteDir]ftp.CreateRemoteDir[/url] kehu
  [url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] kehu
  banbenhao = GetfieldValue("banben").GetValue
  [url=ftp://ftp.CreateRemoteDir]ftp.CreateRemoteDir[/url] banbenhao
  [url=ftp://ftp.ChangeRemoteDir]ftp.ChangeRemoteDir[/url] banbenhao
  oFileName = fso.Getfile ("C:\"&banbenhao&".rar")
  oAttachment.Load oFileName
  fso.CopyFile oAttachment.FileName, OTEMP
  OK = [url=ftp://ftp.PutFile(oFileName]ftp.PutFile(oFileName[/url], fso.GetFileName(oFileName))
  
  [url=ftp://ftp.Disconnect]ftp.Disconnect[/url]
  
     Set oAttachments = Nothing
  Set oAttachField = Nothing
  Set oAttachFields = Nothing
     Set ftp = Nothing
     Set fso = Nothing
     Set session = Nothing


红色之前部分运行正常
估计出错部分就是红色标记的
但查不出问题

在CMD下单独执行压缩命令，没有问题

回复 地毯 的帖子

你这个脚本是运行的时候是用作内部脚本还是外部的脚本

Rarexe="C:\WinRAR.exe"   

rar安装在c盘根目录吗？

[quote]原帖由 [i]wuqing1185[/i] 于 2008-2-13 14:20 发表 [url=http://bbs.scmlife.com/redirect.php?goto=findpost&pid=74567&ptid=10322][img]http://bbs.scmlife.com/images/common/back.gif[/img][/url]
Rarexe="C:\WinRAR.exe"   

rar安装在c盘根目录吗？ [/quote]

这个地方没有问题
我测试过