| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何在指定的目录下创建一个txt的文件？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58042) |
| -- 作者：happyft -- 发布时间：2014/10/10 14:22:00 -- 如何在指定的目录下创建一个txt的文件？ 想用SaveFileDialog在指定的目录下直接生成一个txt文件，并在里面写入一行文本“11111” 要怎么才能实现？ （不要先人为新建一个txt文件，然后向里面写入值） Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter = "文本文件|*.txt" \'设置筛选器 dlg.FileName = "abc.txt" \'默认文件名 dlg.OverwritePrompt = True \'有同名文件提示 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim pth as stirng = "SaveFileDialog指定的目录" Dim str As String = "11111" FileSys.WriteAllText(pth & "abc.txt" , str, True) End If 上面的代码好象不可以。谢谢！ |
| -- 作者：Bin -- 发布时间：2014/10/10 14:27:00 -- FileSys.WriteAllText(pth, str, True) |
| -- 作者：HappyFt -- 发布时间：2014/10/10 14:37:00 -- 显示如下错误，拒绝访问，但直接在桌面上用鼠标右键新建文本文件却又可以。 如何得到：SaveFileDialog指定的目录"
|
| -- 作者：Bin -- 发布时间：2014/10/10 14:40:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter = "文本文件|*.txt" \'设置筛选器 dlg.FileName = "abc.txt" \'默认文件名 dlg.OverwritePrompt = True \'有同名文件提示 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim str As String = "11111" FileSys.WriteAllText(dlg.FileName , str, True) End If
|
| -- 作者：HappyFt -- 发布时间：2014/10/10 14:45:00 -- 可以了，谢谢！ |