19

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

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

4

4 回答 4

42

在编写 .NET 代码时,建议您使用为此目的明确设计的函数,而不是依赖环境变量,例如%appdata%.

您正在寻找Environment.GetFolderPath方法,该方法返回您从Environment.SpecialFolder枚举中指定的特殊文件夹的路径。

Application Data 文件夹由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 相同。

于 2011-07-09T10:18:18.813 回答
3

将 VB.NET 与 WinForms 一起使用时,这是另一种选择:

System.Windows.Forms.Application.UserAppDataPath
于 2016-03-24T20:41:26.343 回答
1
Function GetAppDataPath() As String
   Return Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
End Function
于 2016-05-21T06:02:27.970 回答
0

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

对于任何用户,我允许他们设置他们的工作目录,并允许自定义文件夹,这通常是为拥有自己的 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"
于 2021-08-07T20:30:33.493 回答