使用 VB.NET 访问 %appdata%

Question

如何通过VB.NET访问%appdata%中的文件？

例如，C:\Users\Kuzon\AppData\Roaming\program。在另一台 Windows 7 计算机上如何访问该文件？另外，在 Windows XP 上您将如何执行此操作？我相信它是%Application Data%。

Answer 1

当您编写 .NET 代码时，建议您使用专门为此目的设计的函数，而不是依赖环境变量，例如 %appdata%。

您正在寻找 Environment.GetFolderPath 方法，该方法返回您从 Environment.SpecialFolder 枚举。

应用程序数据文件夹由 Environment.SpecialFolder.ApplicationData 值表示。正如您所要求的，这是漫游应用程序数据文件夹。如果您不需要保存的数据在多台计算机之间漫游，并且希望其仅保留在一台计算机本地，则应使用 Environment.SpecialFolder.LocalApplicationData 值。

完整的示例代码：

Imports System.Environment

Class Sample
    Public Shared Sub Main()
        ' Get the path to the Application Data folder
        Dim appData As String = GetFolderPath(SpecialFolder.ApplicationData)

        ' Display the path
        Console.WriteLine("App Data Folder Path: " & appData)
    End Sub
End Class

是的，这在 C# 中的工作方式与 VB.NET 相同。

Answer 2

当将 VB.NET 与 WinForms 一起使用时，这是另一种选择：

System.Windows.Forms.Application.UserAppDataPath

Answer 3

Function GetAppDataPath() As String
   Return Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
End Function

Answer 4

它不仅知道应用程序数据在哪里，而且允许用户设置他们想要使用的默认文件夹。有些用户不是管理员，只能使用本地或漫游，但你确实不知道，所以你必须使用Try..Catch。此外，其他用户可能需要使用网络来访问数据，因此他们的工作文件夹是漫游。

对于任何用户，我允许他们设置自己的工作目录，并且还允许自定义文件夹，这通常适用于拥有自己的 PC/笔记本电脑的人，他们是自己的管理员。下面只是 My.Settings 命令。

我还创建了一个 OutputDirectory（文件夹），用于保存应用程序结果。 （如果他们可以访问正在使用的父工作目录，他们将拥有磁盘读写权限）。如果没有，他们必须让 IT 部门设置他们的权限。

    Dim mdfolder As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Company Name"
    If Directory.Exists(mdfolder) = False Then Directory.CreateDirectory(mdfolder)
    Dim expfolder As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Company Name\AppName"
    If Directory.Exists(expfolder) = False Then Directory.CreateDirectory(expfolder)
    My.Settings.MyDocumentsFolder = expfolder
    mdfolder = expfolder
    My.Settings.Save()

    Dim roamfolder As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\AppName"
    My.Settings.RoamingDataFolder = roamfolder
    My.Settings.Save()

    If My.Settings.DefaultDataFolderOption = 1 Then
        DefaultDataFolder = roamfolder
    End If
    If My.Settings.DefaultDataFolderOption = 2 Then
        DefaultDataFolder = mdfolder
    End If
    If My.Settings.DefaultDataFolderOption = 3 Then
        DefaultDataFolder = My.Settings.CustomDataFolder
    End If
    If DefaultDataFolder = "" Then
        DefaultDataFolder = mdfolder
    End If
    If OutputDirectory = "" Then OutputDirectory = DefaultDataFolder & "\Output"