我参照别人的程序写了一个自动提交文件的东东:
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.Length - 1 '检测所有标签
If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签
  Set vtag = vDoc.All(i)
  If vtag.Name = "file1" Then
    vtag.Focus
    Dim WshShell
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.SendKeys path1
  End If
End If
Next
它可以把我的文件名送给这个文件提交框内,我手动提交不能把文件上传.
请问要什么做才能把文件提交出去啊?

[[it] 本帖最后由 不惑 于 2008-1-30 09:26 编辑 [/it]]

当然,我全手动来把这个文件选定后提交文件是可以提交的.
也就是WEB程序没问题的.
我用自动提交文件时,文件提交不了.
不出错,但文件没有提交上去.
还有就是如果我的文件名中有中文,好象也不能用WshShell.SendKeys path1复制到文件提交框内.

vtag.value=path1 试试

这样早就试过了肯定不行,我的是文件.不是其它东东

搞定.原来是WshShell.SendKeys path1
不能传中文引起的.改用模拟CTRL+V就OK了.

学习了