将文件保存到我的文档中的文件夹

Question

我正在使用保存文件对话框从我的数据网格视图中保存Excel文件，并且我想将文件保存在“我的文档”中的文件夹中。然后，如果该文件夹不存在，则将创建该文件夹。我该怎么做？

Answer 1

Dim myDocs = My.Computer.FileSystem.SpecialDirectories.MyDocuments

Dim dataDir = IO.Path.Combine(myDocs,"Data")


If Not IO.Directory.Exists(dataDir) Then IO.Directory.Create(dataDir)

fileDialog.InitialDirectory = dataDir


fileDialog.ShowDialog()

Answer 2

You can add your file path in we.config like this
  <appSettings>
    <add key="imagePath" value="D:\Image\Profile" />
  </appSettings>

然后在代码中写下这个：

string strVirtualPath = ConfigurationManager.AppSettings [“imagePath”];

if (!System.IO.Directory.Exists(strVirtualPath))
{
   System.IO.Directory.CreateDirectory(strVirtualPath);
}