控件:Internet Transfer 6。0
协议:icHttp
请看部分代码:FileName$ = App.Path & "\"
Inet1.Execute , "GET New.exe" & FileName$ & "New.exe"
Do While Inet1.StillExecuting
   DoEvents
Loop
不知道怎么回事,New.exe文件我在应用程序目录下没有发现,居然还运行通过!
运行到这句:
Shell "New.exe"
就会说找不到文件,怎么回事?谢谢

解决方案 »

  1.   

    Inet1.Execute , "GET New.exe " & FileName$ & "New.exe"第一个文件名后要有空格。
      

  2.   

    Inet1.Execute , "GET New.exe" & FileName$ & "New.exe"
    这句代码
    就算找不到new.exe也会运行通过的,因为写错了
    改成
    Inet1.Execute , "GET New.exe " & FileName$ & "New.exe"如果我没看错的话,如果看错了请楼主见谅
      

  3.   

    get 1 2
    两个中间应该有空格的吧
    楼主的应该是Get New.exeC:\winnt\system32\New.exe
      

  4.   

    怪事:
    Inet1.Execute ,"GET New.exe " & FileName$ & "New.exe"
    Do While Inet1.StillExecuting
       DoEvents
    Loop
    Shell "New.exe"
    注意:我已经在第一个New.exe后面加了一个空格,运行到Shell "New.exe"同样会报错!
    会是什么问题呢?
      

  5.   

    Shell App.Path &"\New.exe"如果你的程序目录下有new.exe文件就可以或者你直接把new.exe 放到 C:\winnt\ 下面就可以使用Shell "New.exe"
      

  6.   

    物品领用登记表是ACCESS数据库,SELECT语句并没有问题。我做了个查询的小程序,采用的模糊查询方式,就是这种RecordSource = "select * from 物品领用登记表 where 领用人姓名 LIKE '%" + a + "%' and 物品名称 LIKE '%" + b + "%' and 数量 like '%" + c + "%'" + " and 领用日期 between '" + Text4.Text + "' and '" + Text5.Text + "'"
    语句。这个却显示全部,不能根据条件来查询。显示全部内容。老哥,你把邮箱留下我发给你。大哥帮我改改.谢谢。
      

  7.   

    Shell app.path & "\New.exe"