已解决VB 保存文件问题

提问者：zbkuang33 | 浏览次 | 提问时间：2017-02-20 | 回答数量：9

VB 保存文件问题在VB 中, 如何自动生成文件并且把文件自动保存到桌面上? 我是在visual studio.net 2003 编写代码的.生成文件我只会用richtextbox 这个控件,但是怎么写代码让文件自动保存到桌面就不会了. x = System.Environment.GetFolderPath(System.Environment.SpecialFolder.DesktopDirectory) & x & \".txt\"RichTextBox1.SaveFile(x, RichTextBoxStreamType.PlainText)这个代码只能保存到Documents and Settings 这个文件夹里的. 请问应该如何写才能保存到桌面上呢?

已有9条答案

12580zcz

回答数：172 | 被采纳数：6

从注册表中找到桌面的路径

2017-02-20 17:33:22

南朝的章鱼

回答数：203 | 被采纳数：14

但是代码应该怎么写呢?

2017-02-20 19:50:14

龙之依然

回答数：111 | 被采纳数：36

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders

2017-02-20 21:36:12

君念花开_

回答数：170 | 被采纳数：47

不行.说什么找不到路径的.

2017-02-21 02:41:14

w3265968

回答数：102 | 被采纳数：27

谁说找不到路径？？

2017-02-20 22:09:43

dr琉璃

回答数：202 | 被采纳数：84

x = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders " & x & ".txt"
RichTextBox1.SaveFile(x, RichTextBoxStreamType.PlainText)

我的代码是这样写,所以在桌面上,没有看到生成的文件, 然后程序运行时,它显示所找不到路径.

2017-02-20 23:59:24

云中城的云宝

回答数：54 | 被采纳数：62

晕，你不知道注册表是什么。用注册表编辑器打开这个位置，里面所有文件夹的路径都有，那个System.Environment.SpecialFolder.DesktopDirectory也是读取这个位置

2017-02-21 09:15:23

baby银牌

回答数：23 | 被采纳数：10

懂得一点注册表. 但是在这里应该怎么写代码才能让文件直接保存到桌面上?这个一点也不会. 所以才会这样写.
System.Environment.SpecialFolder.DesktopDirectory 用这个方法得到的保存路径并没有在桌面上看见该文件的.
真的一点也会不会才会这样写的. [s:476]

2017-02-21 11:58:58

凌嘉的海角

回答数：14 | 被采纳数：138

function DesktopDirectory() as String
Dim res As Microsoft.Win32.Registry
Dim reg As Microsoft.Win32.RegistryKey

reg = res.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", True)
Dim value as String
value= reg.GetValue("Desktop", "")
return value
end function
试试

2017-02-21 19:24:03