[VB.NET]问个关于internet收藏页的问题

前端之家收集整理的这篇文章主要介绍了[VB.NET]问个关于internet收藏页的问题前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
问个关于internet收藏页的问题 代码是: public class webfav public name as string public url as string public sub load(byval filename as string) dim strdata as stringt try strdata = my.computer.filesystem.readalltext(filename) 这里我不是很明白 catach ex as ioexception throw new exception(ioexception.message) end try =========================================== 书上的解释是: filename 代表收藏页的路径, 在我的计算机上是:“C:/Documents and Settings/Administrator/Favorites”,假设我的这个收藏页的文件名字是baidu.html 那么filename 的完整名称就是:“C:/Documents and Settings/Administrator/Favorites/baidu.html” ========================================== 然后书上有说: 读取文件后,strdata就包含类似于下面的数据: [default] baseurl= http://baidu.com [internetshortcut] url=http://baidu.com modified= xxxxxxxxxxxxxxxxxxx ========================================== 但是每次我按照书上写的代码访问这个文件的时候,老是提示找不到文件!!! 我的代码: strdata = my.computer.filesystem.readalltext( C:/Documents and Settings/Administrator/Favorites/baidu.html ) 请问这个是怎么回事啊, 希望高手帮我解决这个问题 谢谢大家 __________________________________________________________________________ baidu.html这个文件真的存在么,我看了一下,Favorites下存放的好像只是一些快捷方式。 __________________________________________________________________________ 打开摆渡,然后按ctrl+d,就会自动存储为收藏页, 默认的名字是:“百度一下,你就知道”,没有后缀 但是我书里写的是:“xxx.url” 所以我还以为要把后缀改成url才能用my.computer.filesystem.readalltext读他 这个真是搞不明白 应该怎么才好啊 __________________________________________________________________________ 书上说得没错,不用修改后缀的.这些文件的后缀不会显示,但其实是有的,就是 .url . 请看以下这段代码,它遍历了favorite文件夹中的文件,读取并显示其中的内容. Public Class Form1 Private Sub Form1_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load Dim strFiles() As String = IO.Directory.GetFiles( C:/Documents and Settings/Administrator/Favorites ) Dim strFile As String Dim strURL As String For Each strFile In strFiles MsgBox(strFile) If strFile.Contains( .url ) Then strURL = My.Computer.FileSystem.ReadAllText(strFile) MsgBox(strURL) End If Next End Sub End Class __________________________________________________________________________ LS的,你太帅了,为什么我写的代码就不行呢: Imports System.IO Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Dim b As String = My.Computer.FileSystem.ReadAllText( Google ) End Sub End Class =================================== 提示找不到文件! 真是邪门了 能解释一下吗? 明白了就给分,谢谢你 __________________________________________________________________________ 错了,我写错了,应该是这样: Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load Dim b As String = My.Computer.FileSystem.ReadAllText( C:/Documents and Settings/Administrator/Favorites/Google ) End Sub End Class =================================== 但是还是提示找不到文件啊 __________________________________________________________________________ C:/Documents and Settings/Administrator/Favorites/Google 改为 C:/Documents and Settings/Administrator/Favorites/Google.url __________________________________________________________________________ 但是不要改变favorite文件夹下的文件名,这样应该能找到的。 __________________________________________________________________________ 请问这个My.Computer.FileSystem.ReadAllText中的ReadAllText不是只能读取TXT文件的吗? 而收藏页是url文件啊? 而且ReadAllText方法所读取的内容也不是URL文件内容啊? 按照上面你的代码显示的是 [default] baseurl= http://google.com [internetshortcut] url=http://google.com modified= xxxxxxxxxxxxxxxxxxx 但是我打开那个收藏页文件,却找不到这些内容 这个是怎么回事呢? __________________________________________________________________________ 你打开那个文件得到什么?我怎么都打不开。 __________________________________________________________________________ 不是只能读取TXT文件的,可以说是能读取文件中的文本,和文件本身的保存类型无关。 __________________________________________________________________________ 明白了 谢谢你 给分! __________________________________________________________________________

猜你在找的VB相关文章