从品牌网站建设到网络营销策划,从策略到执行的一站式服务
我没有设置关联,只是把文件拖到程序文件上打开,应该是一样的。
成都创新互联公司主营淮阴网站建设的网络公司,主营网站建设方案,成都APP应用开发,淮阴h5微信平台小程序开发搭建,淮阴网站营销推广欢迎淮阴等地区企业咨询
主要是看程序启动时的命令行参数My.Application.CommandLineArgs,里面包括要打开的文件路径。
在Sub Main 或者 启动窗口的Load事件里添加代码
If My.Application.CommandLineArgs.Count 0 AndAlso My.Computer.FileSystem.FileExists(My.Application.CommandLineArgs(0)) Then‘参数不为空且文件存在
Dim s As New IO.StreamReader(My.Application.CommandLineArgs(0))
MsgBox(s.ReadToEnd)
End If
你还可以处理更多的命令行参数。
关于命令行参数
按照此方法绝对OK
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim opfile As New OpenFileDialog '声名新open 窗口
Dim filetmp() As String '存文件名
opfile.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*" '添加过滤文件
opfile.Multiselect = True '多开文件打开
If opfile.ShowDialog = Windows.Forms.DialogResult.OK Then '如果打开窗口OK
If opfile.FileName "" Then '如果有选中文件
ReDim filetmp(opfile.SafeFileNames.Length)
filetmp = opfile.SafeFileNames '取文件名
For i As Integer = 0 To filetmp.Length - 1
ListBox1.Items.Add(filetmp(i)) '添加文件名
Next
End If
End If
End Sub
"mark"去掉双引号
而且你的代码也不应写在TextChanged事件中,因为你那有那么快输完地址?
一种采用绝对路径比如"provider=Microsoft.jet.oledb.4.0;Data source= c:/xxx/AAA.mdb"
第二种采用当前exe所在路径
"provider=Microsoft.jet.oledb.4.0;Data source= “+Application.StartupPath + "\\"+”AAA.mdb"
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图