Créer un fichier texte et de l'écriture

Je veux créer un fichier texte et d'écrire du texte dans ce fichier, mais mon code ne peut pas créer le fichier texte.

Message d'erreur:

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

Mon code:

 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

OriginalL'auteur Kwan Mr | 2012-05-05

  1. 3

    Dans la version plus récente de Windows, la racine du lecteur C: est en lecture seule par défaut. Essayez de mettre le fichier dans un autre dossier.

    il travail! :] Aussi, comment peut créer le fichier txt dans le dossier Mes Documents, fichier??
    SaveFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);
    Dim fileLoc as String = SaveFileDialog1.InitialDirectory + "\save.txt" ??
    Dim fileLoc as String = Environnement.GetFolder(Chemin De L'Environnement.SpecialFold er.MyDocuments) & "\save.txt"

    OriginalL'auteur Daniel Mann

  2. 0

    Si vous êtes un peu obsessionnel et que vous voulez écrire sur le disque C répertoire directement, vous pouvez utiliser ceci: 

    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

    OriginalL'auteur Tawfik Khalifeh