以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打开文件夹  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83206)
--  作者：江南小城
--  发布时间：2016/4/3 12:04:00
--  [求助]打开文件夹
老师，下面代码找不到指定文件夹。


Dim Proc As New Process \'定义一个新的Process
Proc.File = "I:\\新建文件夹\\记事本" \'指定要打开的文件
Proc.Start()
--  作者：大红袍
--  发布时间：2016/4/3 13:15:00
--  
Dim Proc As New Process \'定义一个新的Process
Proc.File = "I:\\新建文件夹\\记事本.txt" \'指定要打开的文件
Proc.Start()
--  作者：江南小城
--  发布时间：2016/4/3 14:37:00
--  
老师，我是要打开文件夹然后添加文件，以前可以的这次死活打不开。

NET Framework 版本：2.0.50727.3655
Foxtable 版本：2015.12.22.1
错误所在事件：
详细错误信息：
系统找不到指定的文件。




Dim Proc As New Process \'定义一个新的Process
Proc.File = "I:\\新建文件\\记事本文件夹" \'指定要打开的文件
Proc.Start()\'


Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "文本文件|*.htm" \'设置筛选器
dlg.FileName = ".htm" \'默认文件名
dlg.OverwritePrompt = True \'有同名文件提示
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   Dim str As String = ""
    FileSys.WriteAllText(dlg.FileName , str, True)
End If
--  作者：大红袍
--  发布时间：2016/4/3 17:23:00
--  

提示错误，就说明，你这个文件夹肯定不存在 【I:\\新建文件\\记事本文件夹】

 

你可以写成 c:\\ 或者 d:\\ 测试，肯定可以的。
--  作者：江南小城
--  发布时间：2016/4/4 8:51:00
--  
老师；我要在下面的代码上加入打开指定的文件夹。


Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "文本文件|*.htm" \'设置筛选器
dlg.FileName = ".htm" \'默认文件名
dlg.OverwritePrompt = True \'有同名文件提示
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
   Dim str As String = ""
    FileSys.WriteAllText(dlg.FileName , str, True)
End If
--  作者：大红袍
--  发布时间：2016/4/5 1:04:00
--  

这个意思？

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "文本文件|*.htm" \'设置筛选器
dlg.FileName = ".htm" \'默认文件名
dlg.OverwritePrompt = True \'有同名文件提示
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim str As String = ""
    FileSys.WriteAllText(dlg.FileName , str, True)
    Dim proc As new Process
    proc.File = FileSys.GetParentPath(dlg.FileName)
    proc.Start
End If
--  作者：江南小城
--  发布时间：2016/4/5 17:13:00
--  
以下是引用大红袍在2016/4/5 1:04:00的发言：

这个意思？

 

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "文本文件|*.htm" \'设置筛选器
dlg.FileName = ".htm" \'默认文件名
dlg.OverwritePrompt = True \'有同名文件提示
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim str As String = ""
    FileSys.WriteAllText(dlg.FileName , str, True)
    Dim proc As new Process
    proc.File = FileSys.GetParentPath(dlg.FileName)
    proc.Start
End If



老师，我要指定路径打开文件夹过滤后在对话框中显示选定。
--  作者：大红袍
--  发布时间：2016/4/5 17:23:00
--  
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "文本文件|*.htm" \'设置筛选器
dlg.FileName = ".htm" \'默认文件名
dlg.OverwritePrompt = True \'有同名文件提示
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Dim str As String = ""
    FileSys.WriteAllText(dlg.FileName , str, True)
    Dim proc As new Process
    Dim rs As String = "  /select," & dlg.FileName & " "
    Proc.File = "explorer.exe" \'指定要执行的文件
    Proc.Arguments = rs \'指定命令行参数
    proc.Start
End If