曾经为了VB.NET导入内容伤透了心原来是我不懂他的文件夹位置

信息发布软件

	在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文件中，方便其他程序调取） [vb] view plain copy ' "文件夹存在CHECK"   Public Function isDirExist(ByVal strPath As String) As Boolean       Dim strDirTemp As String()       strDirTemp = strPath.Split("\")       strPath = String.Empty       For i As Integer = 0 To strDirTemp.Length - 1           ' 判断数组内容.目的是防止输入的strPath内容如:c:\abc\123\ 最后一位也是"\"           If strDirTemp(i) <> "" Then               strPath += strDirTemp(i) & "\"           End If       Next          ' 判断文件夹是否存在       isDirExist = System.IO.Directory.Exists(strPath)   End Function   画面程序调用： [vb] view plain copy '  检查设定的输出报表路径是否存在   If common.isDirExist(Me.txtOutputPath.Text.Trim()) = False Then       ' 设定的输出报表路径不存在的场合,确认是否要创建该路径       If MsgBox("设定的输出报表路径： " & Me.txtOutputPath.Text.Trim() & " 不存在，是否创建该路径？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then           ' 创建设定的文件夹           My.Computer.FileSystem.CreateDirectory(Me.txtOutputPath.Text.Trim())           Return True       Else           Me.txtOutputPath.Focus()           Return False       End If   End If

西充

	宝买的最超值的虚拟物品了吧。大赞。给077号客服一个好评，休假都还给我改需求。而且速度超快，刚说完的改动需求，不到5分钟就搞定了。顺便给我的网站打个广告，手赚咖shouzhuanka.com各种手机赚钱方式。

小痞子

	不错，很喜欢

wbd902

	有耐心的客服，技术也很棒

huangge

	功能很全，也比较容易上手，有弄不明白的就问售后技术，回答的很有耐心。

q1598188

	，客服很有耐心，我说了很多的要求都一一的帮我改了，有需要还会再来找你们设计的

huaxue98

	强，效率高。关键是价格，绝对良心。下次继续合作！！！

aluoting

	度快下载还来全5分

wbd902

	很快就搞定了

huaxue98

	专业，客服很认真，特别是23号客服，非常有耐心，回应速度非常快！技术很熟悉，百问不烦！你们公司真的应该好好表扬23号，这样我们客户网站托付给你们，我们很放心，无论是售前还是售后，服务都很好！不象别的地方，弄完就不管了！祝你们生意兴隆！希望以后网站的维护还有售后，一往的好！