none
Visual basic 2008 express attribut fichier lecture seule RRS feed

  • Question

  • bonjour

    comment changer l'attribut lecture seule d'un fichier: je veux pouvoir écrire en utilisant :

    My.Computer.FileSystem.WriteAllText(nom, textbox.Text, False)

    actuellement j'ai une erreur car le fichier "nom" est en lecture seule

    mon systeme fonctionne si je le déverrouille à l'aide de l'explorateur et du menu propriété, mais j'aimerais le faire dans mon programme

    merci à celui qui m'indiquera la solution


    debutant
    mercredi 4 mai 2011 10:13

Réponses

  • Bonjour Alain,

    Voici un exemple:

    Public Class Form1
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim nom As String
        nom = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\textfile.ini"
        Dim nomFichier = "C:\Local\test.txt"
        Dim MyAttribute As FileAttribute
        MyAttribute = GetAttr(nomFichier)
        MessageBox.Show(MyAttribute.ToString)
        If MyAttribute <> FileAttribute.Normal Then
          SetAttr(nomFichier, FileAttribute.Normal)
          MessageBox.Show("plus de lecture seule")
        End If
        Try
          My.Computer.FileSystem.WriteAllText(nomFichier, "ceci est un essai", False)
        Catch ex As Exception
          MessageBox.Show(ex.Message)
        End Try
      End Sub
    End Class
    
    


    fred
    • Proposé comme réponse fred75 mercredi 4 mai 2011 12:15
    • Marqué comme réponse Alaindebut mercredi 4 mai 2011 12:48
    mercredi 4 mai 2011 12:14

Toutes les réponses

  • Bonjour Alain,

    Voici un exemple:

    Public Class Form1
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim nom As String
        nom = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\textfile.ini"
        Dim nomFichier = "C:\Local\test.txt"
        Dim MyAttribute As FileAttribute
        MyAttribute = GetAttr(nomFichier)
        MessageBox.Show(MyAttribute.ToString)
        If MyAttribute <> FileAttribute.Normal Then
          SetAttr(nomFichier, FileAttribute.Normal)
          MessageBox.Show("plus de lecture seule")
        End If
        Try
          My.Computer.FileSystem.WriteAllText(nomFichier, "ceci est un essai", False)
        Catch ex As Exception
          MessageBox.Show(ex.Message)
        End Try
      End Sub
    End Class
    
    


    fred
    • Proposé comme réponse fred75 mercredi 4 mai 2011 12:15
    • Marqué comme réponse Alaindebut mercredi 4 mai 2011 12:48
    mercredi 4 mai 2011 12:14
  • merci , je n'avais pas compris l'écriture et l'utilisation de l'instruction suivante:

    SetAttr(nomFichier, FileAttribute.Normal)     (jen'avais pas compris avec get non plus)

    c'était ce qui me manquait, maintenant ceproblème est résolu

    salutations


    debutant
    mercredi 4 mai 2011 12:50