信息发布软件,b2b软件,广告发布软件

标题: VB.net获取系统特殊目录终于可以摆脱那些复杂又容易出错的参数了 [打印本页]
作者: 群发软件    时间: 2017-5-18 00:05
标题: VB.net获取系统特殊目录终于可以摆脱那些复杂又容易出错的参数了
本帖最后由 群发软件 于 2017-5-18 00:06 编辑

在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.


特例2


Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '获得“桌面”所在的目录
        ListBox1.Items.Add(My.Computer.FileSystem.SpecialDirectories.Desktop)

        '获得“我的文档”所在的目录
        ListBox1.Items.Add(My.Computer.FileSystem.SpecialDirectories.MyDocuments)

        '以下为乐博网补充的部分例子

      '获得“Program Files”文件夹所在的目录
        ListBox1.Items.Add(My.Computer.FileSystem.SpecialDirectories.ProgramFiles)

      '获得系统“Temp”文件夹所在的目录
        ListBox1.Items.Add(My.Computer.FileSystem.SpecialDirectories.Temp)

      '获得“MyMusic”所在的目录
        ListBox1.Items.Add(My.Computer.FileSystem.SpecialDirectories.MyMusic)

      '获得“MyPictures”所在的目录
        ListBox1.Items.Add(My.Computer.FileSystem.SpecialDirectories.MyPictures)


    End Sub


End Class

特例3

1. 前言

今天在配置cppunit的附加依赖项的时候， 需要输入相应的附加依赖项的文件名， 这个很费劲， 我们又不想自己手工一个个的copy， 就希望能够找到一种方法可以直接获取到我们的文件名

2. 处理思路

我们这里想到了vb.NET， 利用他的拖拽功能， 直接获取相应的文件名称b2b软件 广告发布软件

3. 实现效果

VB.net获取系统特殊目录终于可以摆脱那些复杂又容易出错的参数了 b2b软件


VB.net获取系统特殊目录终于可以摆脱那些复杂又容易出错的参数了 b2b软件

4. 注意点5. 代码Public Class Form1    ' 拖拽进入， 清空数据    Private Sub FileLists_DragEnter(sender As Object, e As DragEventArgs) Handles FileLists.DragEnter        FileLists.Items.Clear()        e.Effect = DragDropEffects.All    End Sub    ' 拖拽完成， 显示数据    Private Sub FileLists_DragDrop(sender As Object, e As DragEventArgs) Handles FileLists.DragDrop        Dim MyFiles() As String        MyFiles = e.Data.GetData(DataFormats.FileDrop)        For i = 0 To MyFiles.Count - 1            Dim Items() As String            Items = MyFiles(i).Split("\\")            FileLists.Items.Add(Items(Items.Count - 1))        Next    End Sub    ' 双击数据， 实现复制数据到剪切板， 另外注意换行使用 vbCrLf, C 中的 "\n" 不管用    Private Sub FileLists_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles FileLists.MouseDoubleClick        Dim strData As String        strData = ""        With FileLists            For i = 0 To .Items.Count - 1                strData += .Items.Item(i).Text + vbCrLf            Next        End With        Clipboard.SetDataObject(strData)    End SubEnd Class
作者: 西充    时间: 2017-5-22 22:49
好，页面设计很满意，而且也很快，非常有效率，第一次买，遇到这么好的卖家，这么高效的服务，真的太幸运了，太谢谢卖家，以后朋友需要会介绍来亲店里的！赞！
作者: dongwuhua    时间: 2017-5-26 12:56
，功能齐全，不懂的地方反复讲解，服务态度可以，赞一个。
作者: 694012770    时间: 2017-5-28 20:37
的很好客服很有耐心非常满意
作者: xbaobeit    时间: 2017-5-30 01:19
铺一天销量也就几十票装修完发布后店铺的转化率高了很多。，提升了太多销量大概有3倍吧。视觉冲击效果强大起来
作者: chenxue2015    时间: 2017-6-5 16:32
任了，就像巴黎欧莱雅，你值得拥有
作者: mmgg520    时间: 2017-6-15 13:52
识，不仅店铺漂亮了，还交到了个朋友，不错不错！
作者: loverun    时间: 2017-6-16 14:48
很好，很有耐心，修改了几次，都很配合



欢迎光临 信息发布软件,b2b软件,广告发布软件 (http://www.postbbs.com/) Powered by Discuz! X3.2