Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Zoury
Salut Lou! :O)
Tu voudrais l'afficher dans NotePad par exemple?
ex : '*** Private Function OpenFileExclusively(ByRef sFilePath As String) As Long
Dim lFileAttr As Long
' test s'il est read-only, sinon on modifie l'attribut lFileAttr = GetAttr(sFilePath) If ((lFileAttr And vbReadOnly) <> vbReadOnly) Then Call SetAttr(sFilePath, lFileAttr Or vbReadOnly) ' on ajoute le flag End If
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "lou" a écrit dans le message de news:40c4b5b9$0$8414$
bonjour
j'ai un fichier txt que je veux afficher en lecture seule
j'ai besoin d'un petit bout de code qui me ferait cela depuis access merci d'avance
Salut Lou! :O)
Tu voudrais l'afficher dans NotePad par exemple?
ex :
'***
Private Function OpenFileExclusively(ByRef sFilePath As String) As Long
Dim lFileAttr As Long
' test s'il est read-only, sinon on modifie l'attribut
lFileAttr = GetAttr(sFilePath)
If ((lFileAttr And vbReadOnly) <> vbReadOnly) Then
Call SetAttr(sFilePath, lFileAttr Or vbReadOnly) ' on ajoute le flag
End If
--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/
"lou" <bs600827@skynet.be> a écrit dans le message de
news:40c4b5b9$0$8414$a0ced6e1@news.skynet.be...
bonjour
j'ai un fichier txt que je veux afficher en lecture seule
j'ai besoin d'un petit bout de code qui me ferait cela depuis access
merci d'avance
ex : '*** Private Function OpenFileExclusively(ByRef sFilePath As String) As Long
Dim lFileAttr As Long
' test s'il est read-only, sinon on modifie l'attribut lFileAttr = GetAttr(sFilePath) If ((lFileAttr And vbReadOnly) <> vbReadOnly) Then Call SetAttr(sFilePath, lFileAttr Or vbReadOnly) ' on ajoute le flag End If
-- Cordialement Yanick Lefebvre - MVP pour Visual Basic http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/ http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/ "lou" a écrit dans le message de news:40c4b5b9$0$8414$
bonjour
j'ai un fichier txt que je veux afficher en lecture seule
j'ai besoin d'un petit bout de code qui me ferait cela depuis access merci d'avance
Zoury
> Private Function OpenFileExclusively(ByRef sFilePath As String) As Long
tu devrait changer cette ligne pour :
Private Sub OpenFileAsReadOnly()
j'avais dans l'idée d'en faire une fonction mais je ne retourne aucune valeur.. De plus le nom de la fonction n'avait aucun rapport.. :O/
