28,407
社区成员
发帖
与我相关
我的任务
分享有谁知道在vbScript 如何远程打开一个文本文件
代码如下
filepath= "http://135.10.200.65/log.txt"
Set fso = createObject("Scripting.FileSystemObject")
当执行到fso.FileExists(filepath)这条语句时返回值为false,就是找不到这个文件.我在浏览器中直接输入http://135.10.200.65/log.txt就能直接打开文件.
高手请问这是怎么回事啊?
filepath= "http://135.10.200.65/log.txt"
Set fso = createObject("Scripting.FileSystemObject")
当执行到fso.FileExists(filepath)这条语句时返回值为false,就是找不到这个文件.我在浏览器中直接输入http://135.10.200.65/log.txt就能直接打开文件.
高手请问这是怎么回事啊?
...全文
请发表友善的回复…
发表回复
greenguo 2003-12-18
- 打赏
- 举报
谢谢各位。。。。
greenguo 2003-12-17
- 打赏
- 举报
.run（）方法是去执行一个程序打开一个文件，其返回的值不能够获得文件里的内容（至少我查的很多资料没让我知道怎样去获取文件内容）。。。昏昏
liyan010 2003-12-16
- 打赏
- 举报
加个引号,ok?应该是WshShell.run "d:\zcx\logtt.asp"
liyan010 2003-12-16
- 打赏
- 举报
什么叫怎么读啊？不理解你的话哦~
用.run（）方法就是调用你机器默认的程序打开目标文件，例如打开.html文件就用IE浏览器，打开.avi文件就用Windows Media Player
Got it?
用.run（）方法就是调用你机器默认的程序打开目标文件，例如打开.html文件就用IE浏览器，打开.avi文件就用Windows Media Player
Got it?
超级大笨狼 2003-12-16
- 打赏
- 举报
那个文件在135.10.200.65服务器上你可以借助fso修改
如果135.10.200.65不是服务器你只有用黑客手段了。
如果135.10.200.65不是服务器你只有用黑客手段了。
greenguo 2003-12-16
- 打赏
- 举报
问题是用WshShell.Run怎么读啊?懵...........................
swich 2003-12-15
- 打赏
- 举报
同意狼的说法
yangfanatcsdn 2003-12-15
- 打赏
- 举报
我在浏览器中直接输入http://135.10.200.65/log.txt就能直接打开文件
那是因为浏览器已经将它下载到了你的硬盘上
除非你可以在服务器上声明一个("Scripting.FileSystemObject", servername)
但这是办不到的。
那是因为浏览器已经将它下载到了你的硬盘上
除非你可以在服务器上声明一个("Scripting.FileSystemObject", servername)
但这是办不到的。
赴日工作招聘程序员 2003-12-15
- 打赏
- 举报
filepath= "\\135.10.200.65\log.txt"
试试吧,楼上的说的没有什么道理啊.
试试吧,楼上的说的没有什么道理啊.
超级大笨狼 2003-12-15
- 打赏
- 举报
Set fso = createObject("Scripting.FileSystemObject")
本机的对象
http://135.10.200.65/log.txt
是URL地址，不是filepath
本机的对象
http://135.10.200.65/log.txt
是URL地址，不是filepath
zhengcuixia198132 2003-12-15
- 打赏
- 举报
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.run d:\zcx\logtt.asp
我这样写，WshShell.run d:\zcx\logtt.asp有错误啊
WshShell.run d:\zcx\logtt.asp
我这样写，WshShell.run d:\zcx\logtt.asp有错误啊
liyan010 2003-12-15
- 打赏
- 举报
Let me 告诉你一个简单的,不管是不是本地都行,而且可以打开任何类型的文件(不仅仅txt):
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "你想要打开的文件的路径"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "你想要打开的文件的路径"
greenguo 2003-12-15
- 打赏
- 举报
谢谢GageCSDN(稻草人)的建议,但是我不光要读还要修改文件.....
以上各位高手说得都有道理,那么当你们在写asp代码时碰到远程操作文件问题怎么解决啊?
以上各位高手说得都有道理,那么当你们在写asp代码时碰到远程操作文件问题怎么解决啊?
GageCSDN 2003-12-15
- 打赏
- 举报
FSO是访问本机的文件，你这样是调用远程文件，用不了它的，如果只是为了读取文件内容我有办法，但要是想更改文件内容就没有办法了。
Function ReadFile(URL)
On Error Resume Next
Dim XMLHTTP
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "Get",URL,False
XMLHTTP.Send()
ReadFile = bytes2BSTR(XMLHTTP.responseBody)
End Function
Function bytes2BSTR(vIn)
Dim strReturn, i, ThisCharCode, innerCode, Hight8, Low8, NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, i, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, i+1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Msgbox ReadFile("http://135.10.200.65/log.txt")
Function ReadFile(URL)
On Error Resume Next
Dim XMLHTTP
Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "Get",URL,False
XMLHTTP.Send()
ReadFile = bytes2BSTR(XMLHTTP.responseBody)
End Function
Function bytes2BSTR(vIn)
Dim strReturn, i, ThisCharCode, innerCode, Hight8, Low8, NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn, i, 1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn, i+1, 1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
Msgbox ReadFile("http://135.10.200.65/log.txt")
