曾经为了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

xiaozhu168

	业型店家，网站制作非常给力服务态度好，好满意哦！赞！

ebxly

	很快，跟店家描述的一样，点个赞！！！

linshihu

	值，值得一买，不错不错不错！！！

weipinzongmeng

	家服务态度，服务质量都是非常好的，效率也高。5??星好评

c19900420

	，价格也便宜，完全超出我的预期，很好很强大，是我想要的后台

huanyili998

	热情技术很高以后长期合作

a5206662

	少去评论但这样的卖家你买到的不仅仅是商品更多的是感动（这是用钱无法衡量的）！网站做过不少但都是草草收场。从开始的第一句话到交易成功这态度和耐心无论是客服还是技术有问必答有求必应！我想说的是这样的做事如此负责态度不成功都难！！这是我体验过最好的对话和服务处处都是为对方着想在这如此浮躁的时代依然有暖心感动！再次感谢！祝生意兴隆！还会继续合作！！

huaxue98

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

wbd902

	很快就搞定了