Dim Index1 As Integer
Dim Index2 As Integer
Dim strLuJing As String
Dim strFileName As String
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Excel文件|*.xlsx|Word文件|*.doc|Word文件|*.docx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Index1 = dlg.FileName.LastIndexOf("\")
strLuJing = dlg.FileName.SubString(0,Index1)
strLuJing = strLuJing & "\"
For Each File As String In FileSys.GetFiles(strLuJing)
Index2 = File.Length
strFileName = File.SubString(Index1,Index2)
MessageBox.Show(strLuJing)
Next
End If
代码是这样写的，但是提示如图的问题
此主题相关图片如下：1.png
加好友 
发短信
Post By：2017/8/26 15:23:00 [显示全部帖子]
