Question

我想创建一个文本文件并将一些文本写入此文件，但我的代码无法创建文本文件。

错误讯息：

    UnauthorizedAccessExcepion was unhandled by user code
 Access to the path 'c:\save.txt' is denied.

我的代码：

 Dim fileLoc As String = "c:\save.txt"
                    Dim fs As FileStream = Nothing
                    If (Not File.Exists(fileLoc)) Then
                        fs = File.Create(fileLoc)
                        Using fs

                        End Using
                    End If
                    If File.Exists(fileLoc) Then
                        Using sw As StreamWriter = New StreamWriter(fileLoc)
                            a = "Test: " + TextBox1.Text
                            c = "=============================================="
                            sw.Write(a)
                            sw.Write(c)
                        End Using
                    End If

Answer 1

在更新版本的Windows中，默认情况下C：驱动器的根目录是只读的。尝试将文件放在另一个文件夹中。

Answer 2

如果您有点痴迷并希望直接写入C盘目录，可以使用：

Imports System.Security.Principal

Module VistaSecurity

    'Declare API
    Private Declare Ansi Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer
    Private Const BCM_FIRST As Int32 = &H1600
    Private Const BCM_SETSHIELD As Int32 = (BCM_FIRST + &HC)

    Public Function IsVistaOrHigher() As Boolean
        Return Environment.OSVersion.Version.Major < 6
    End Function

    ' Checks if the process is elevated
    Public Function IsAdmin() As Boolean
        Dim id As WindowsIdentity = WindowsIdentity.GetCurrent()
        Dim p As WindowsPrincipal = New WindowsPrincipal(id)
        Return p.IsInRole(WindowsBuiltInRole.Administrator)
    End Function

    ' Add a shield icon to a button
    Public Sub AddShieldToButton(ByRef b As Button)
        b.FlatStyle = FlatStyle.System
        SendMessage(b.Handle, BCM_SETSHIELD, 0, &HFFFFFFFF)
    End Sub

    ' Restart the current process with administrator credentials
    Public Sub RestartElevated()
        Dim startInfo As ProcessStartInfo = New ProcessStartInfo()
        startInfo.UseShellExecute = True
        startInfo.WorkingDirectory = Environment.CurrentDirectory
        startInfo.FileName = Application.ExecutablePath
        startInfo.Verb = "runas"
        Try
            Dim p As Process = Process.Start(startInfo)
        Catch ex As Exception
            Return 'If cancelled, do nothing
        End Try
        Application.Exit()
    End Sub

End Module

创建一个文本文件并写入它

2 个答案: