大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
在按钮的Click事件处理函数中,添加
创新互联专业为企业提供大箐山网站建设、大箐山做网站、大箐山网站设计、大箐山网站制作等企业网站建设、网页设计与制作、大箐山企业网站模板建站服务,10余年大箐山做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
dim str as string="..\help.html" '文件路径名
System.Diagnostics.Process.Start(str)
Dim txtStr As String = "F:\te.txt" 'txt文件路径
Dim endname As String = "doc" '文件类型
Dim folderStr As String = "e:\file\我的文档\毕业设计" '目录位置
Dim str() As String = IO.Directory.GetFiles(folderStr)
For i = 0 To str.Length - 1
Dim itendname As String = Strings.Right(str(i), str(i).Length - Strings.InStrRev(str(i), "."))
Dim strs As String = ""
If itendname = endname Then
strs += str(i) + vbCrLf
End If
IO.File.AppendAllText(txtStr, strs)
Next
放在你的主程序.exe的同一目录下
用一句话施行打开它
System.Diagnostics.Process.Start("test.chm")
msdn的帮助文档都会在微软中文官网附加在Visual Studio的开发环境中