正文

vb.netusers的简单介绍

IP云
IP云V管理员/6 阅读
12/03
提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net如何获取all users文件夹位置?

在VB.NET中，您可以使用System.Environment类中的两个方法GetEnvironmentVariable和GetEnvironmentVariables。以下的例子为您展示了如何使用这些与环境变量相关的方法。

Private Sub GetEnvironmentVariable()

Dim strAUP As String

strAUP = Environment.GetEnvironmentVariable("ALLUSERPROFILE")

MessageBox.Show(strAUP)

End Sub

相关问答

Q1: vb.net删除文件

Private Sub btnRemovePath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRemovePath.Click

        Try

            ' 先建立目录以便用于后续的删除示范。

            If Not Directory.Exists("D:\网易") Then

                Directory.CreateDirectory(" D:\网易 \Test1")

                Directory.CreateDirectory(" D:\网易 \Test2")

                Directory.CreateDirectory(" D:\网易 \Test3")

            End If

            ' 删除子目录 Test1。

            Directory.Delete(" D:\网易 \Test1", True)

            ' 删除子目录 Test2。

            Dim myDirectoryInfo As New DirectoryInfo(" D:\网易 \Test2")

            myDirectoryInfo.Delete(True)

            ' 将目录 C:\AlexDirDemo 及其以下的文件和子目录全数删除。

            Directory.Delete(" D:\网易 ", True)

        Catch ex As Exception

            MessageBox.Show(ex.Message)

            Exit Sub

        End Try

        ' 启动 Windows 资源管理器。

        Process.Start("explorer.exe", "D:\")

    End Sub

Q2: vb.net,强类型转换

这属于装箱拆箱。我举个例子你就明白了：

Dim x As Integer = 5

Dim o As Object = x '装箱

Dim y As Integer = CType(o, Integer) '拆箱（在Option Strict Off的情况下，直接用o给y赋值，会发生自动转换，也就是说在这种情况下，你不必显式调用CType函数）

另外：VB.NET支持后期绑定，所以你也可以不进行拆箱，直接在Object类型下就可以调用它的属性和方法

比如，下面的语句在Option Strict Off是是合法的

Dim s As String = 886

Dim i As Integer = "53"

Dim f As Object = New Form()

f.Show() '注意，f是Object类型的

总之，VB.NET的语法要比C#灵活得多

Q3: vb.net中提示无法找到表0

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username " 'AND password='" userpassword " '"

这句中的空格位置不对，应为

Dim mysqlstr As String = "SELECT * FROM 登录表 WHERE users='" username "' AND password='" userpassword "'"

Q4: vb.net 有个文件路径C：\Users\New York\SoHo\abc.doc，我想从这个路径中提取出SoHo\abc.doc如何实现？

' The file system path we need to split

Dim s As String = "C：\Users\New York\SoHo\abc.doc"

' Split the string on the backslash character

Dim parts As String() = s.Split(New Char() {"\"c})

之后取数组的最后两个 用“\”连接起来就可以了。

Q5: 如何使用vb.net获取一个文件夹里最后一个数据文件的名称？

function Newfile as fileinfo

Dim dic As New System.IO.DirectoryInfo("C:\Users\Q\Desktop\数据")

Dim files = dic.GetFiles.OrderByDescending(Function(s) s.CreationTime)

if files.

return files.first

end function

注意引入 system.linq