问个关于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 ")
请问这个是怎么回事啊,
希望高手帮我解决这个问题
谢谢大家
------解决方案--------------------
书上说得没错,不用修改后缀的.这些文件的后缀不会显示,但其实是有的,就是 ".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
代码是:
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 ")
请问这个是怎么回事啊,
希望高手帮我解决这个问题
谢谢大家
------解决方案--------------------
书上说得没错,不用修改后缀的.这些文件的后缀不会显示,但其实是有的,就是 ".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