VB.Net SpecialFolder.ApplicationData 不工作

VB.Net SpecialFolder.ApplicationData not working

我正在处理您可以启用和禁用的更新检查器设置。 如果启用设置,将创建一个名为 "UA.set" 的文件 现在我将我的更新检查消息与一个代码结合起来,该代码将检查文件 UA.set 文件是否存在但我不工作...... 你能帮我解决这个问题吗?

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim filePath As String
    filePath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MozarCodes\DuckyTool2\Settings"
    Dim objFSO, strFile
    strFile = "filePath\UA.set"
    objFSO = CreateObject("Scripting.FileSystemObject")
    If Not objFSO.FileExists(strFile) Then
        Dim url As New System.Uri("http://mozarcodes.netne.net/DT2-1/")
        Dim req As System.Net.WebRequest
        req = System.Net.WebRequest.Create(url)
        Dim resp As System.Net.WebResponse
        Try
            resp = req.GetResponse()
            resp.Close()
            req = Nothing
            MsgBox("Update Found! Please update to our latest version on http://mozarcodes.netne.net/")
        Catch ex As Exception
            req = Nothing
            MsgBox("You are now using the latest version of DuckyTool 2!")
        End Try
    End If
    Threading.Thread.Sleep("1")
End Sub

非常感谢! (如果您找到解决方案,我会在我的网站上致谢 :D)

您正在使用此行测试一个不存在的文件

strFile = "filePath\UA.set"

正确的代码应该是

filePath = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\MozarCodes\DuckyTool2\Settings"
Dim objFSO, strFile
strFile = filePath & "\UA.set"

顺便说一句,请丢弃旧的 VB6/VBA 对象,例如 Scripting.FileSystemObject,并使用 类 和 .NET Framework

的方法
If Not File.Exists(strFile) Then