曾经为了VB.NET导入内容伤透了心原来是我不懂他的文件夹位置 - 信息发布软件,b2b软件,广告发布软件

　在vb的以前版本中，我们要获取譬如“我的文档”，“我的电脑”等特殊文件夹位置，需要使用到繁杂的API函数才能获取，而vb.net给我们提供了 Environment.GetFolderPath 方法，可以让我们用一行的代码就能获得以前需要复杂代码才能完成的效果。
　
　　Environment 类是。net提供的有关当前环境和平台的信息以及操作它们的方法，使用 Environment 类可检索信息，如命令行参数、退出代码、环境变量设置、调用堆栈的内容、上次系统引导以来的时间，以及公共语言运行库的版本。
　
　　Environment 类中提供了一个 GetFolderPath 方法可以让我们获取指向由指定枚举标识的系统特殊文件夹的路径。如果指定系统的特殊文件夹实际存在于计算机上，则返回该文件夹的路径；否则为空字符串（""）。
　
　　下面我们就举几个常用到的特殊文件夹的获取代码：'获取逻辑桌面，注意不是物理文件系统位置。
　
　　Environment.GetFolderPath（Environment.SpecialFolder.Desktop）
　
　　'获取用于物理上存储桌面上的文件对象的目录。
　
　　Environment.GetFolderPath（Environment.SpecialFolder.DesktopDirectory）
　
　　'获取“我的电脑”文件夹。
　
　　Environment.GetFolderPath（Environment.SpecialFolder.MyComputer）
　'获取“我的文档”文件夹。
　
　　Environment.GetFolderPath（Environment.SpecialFolder.Personal）
　
　　Environment.GetFolderPath（Environment.SpecialFolder.History）
　
　　还有其它一些不常用的特殊文件夹的枚举值，我们就不做说明了，需要用的时候可以自己查询MSDN.

首先，
在窗体上添加一个ListBox控件，将其AllowDrop属性设置为True。

2
接着，
在该控件的DragEnter事件添加如下代码：

private void lsFiles_DragEnter(object sender, DragEventArgs e)
{
if (e.Data.GetDataPresent(DataFormats.FileDrop))
{
e.Effect = DragDropEffects.Link;
}
else
{
e.Effect = DragDropEffects.None;
}
}

需要注意的是，这个事件的代码不得不写，否则会失效。

3
然后，
在该控件的DragDrop事件添加如下代码：

private void lsReady_DragDrop(object sender, DragEventArgs e)
{
foreach (string filepath in (System.Array)e.Data.GetData(DataFormats.FileDrop))
{
lsFiles.Items.Add(filepath);
}

}

4
最后，
运行该程序，可以发现直接向该list拖入文件或文件夹，即可添加到它的项目列表。

5
如果只想保留文件，不想保留文件夹，可以改成如下代码：

private void lsReady_DragDrop(object sender, DragEventArgs e)
{
   foreach (string filepath in (System.Array)e.Data.GetData(DataFormats.FileDrop))
   {
      if (File.Exists(filepath))
      {
         lsFiles.Items.Add(filepath);
      }
   }

}

如果是确定的某一个文件，直接用
Dim MyFullPath = System.IO.Path.GetFullPath(MyFileName)获得即可

如果是不确定的，可以采用dialog的方式，由用户自己选择来确定
FolderBrowserDialog获得文件夹的路径
Private Sub ButtonMSelect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonMSelect.Click

Dim ofd As New FolderBrowserDialog
If ofd.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.TextBoxMPath.Text = ofd.SelectedPath

Dim getDir() As String
getDir = IO.Directory.GetFiles(Me.TextBoxMPath.Text.ToString)
'得到路径下所有的文件的路径

End If
End Sub

获得文件路径用openfiledialog
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
filename2 = OpenFileDialog1.FileName
TextBox2.Text = System.IO.Path.GetFullPath(OpenFileDialog1.FileName)
End If

自己注意区分

有时候我们需要判断某个指定的文件夹是否存在，如果不存在则提示用户是否创建

判断指定文件夹是否存在（保存在common文件中，方便其他程序调取）