OVH Cloud OVH Cloud

verrou sur fichier

3 réponses
Avatar
houbahop2003
Bonjour,
Je désire que certains fichiers ne soient pas modifiables pendant que mon
appli est lancée et que les verrous soient retirés lorsque je quitte mon
appli
Je précise que les fichiers devront etre lus tout de meme.

Avez vous une idée pour réaliser cela ? je n'ai pas trouvé d'exemple d'api
en vb.

MErci,

Dominique.

3 réponses

Avatar
houbahop2003
Je précise aussi que j'ai testé
Open "c:01.bmp" For Input Lock Write As #1
Cela marche bien, mais il n'est apparament pas possible d'ouvrir le fichier
en binaire aprés

Open "c:01.bmp" For Binary Access Read As #2

pourquoi?


"houbahop2003" a écrit dans le message de news:
cfrbla$2hd$
Bonjour,
Je désire que certains fichiers ne soient pas modifiables pendant que mon
appli est lancée et que les verrous soient retirés lorsque je quitte mon
appli
Je précise que les fichiers devront etre lus tout de meme.

Avez vous une idée pour réaliser cela ? je n'ai pas trouvé d'exemple d'api
en vb.

MErci,

Dominique.




Avatar
ng
Salut,

Tu peux essayer ceci par exemple :

Option Explicit

Private intFilePointer As Integer
Private strFileContent As String

Private Sub Form_Load()
intFilePointer = FreeFile
Open "c:1.txt" For Binary Lock Read Write As #intFilePointer
End Sub

Private Sub Command1_Click()
strFileContent = String$(LOF(intFilePointer), vbNullChar)
Get #intFilePointer, , strFileContent
Debug.Print strFileContent
End Sub


Private Sub Form_Unload(Cancel As Integer)
Close #intFilePointer
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



houbahop2003 a écrit :

Bonjour,
Je désire que certains fichiers ne soient pas modifiables pendant que
mon appli est lancée et que les verrous soient retirés lorsque je
quitte mon appli
Je précise que les fichiers devront etre lus tout de meme.

Avez vous une idée pour réaliser cela ? je n'ai pas trouvé d'exemple
d'api en vb.

MErci,

Dominique.


Avatar
houbahop2003
merci, je vais tester ça !

"ng" a écrit dans le message de news:
ey7Ffr#
Salut,

Tu peux essayer ceci par exemple :

Option Explicit

Private intFilePointer As Integer
Private strFileContent As String

Private Sub Form_Load()
intFilePointer = FreeFile
Open "c:1.txt" For Binary Lock Read Write As #intFilePointer
End Sub

Private Sub Command1_Click()
strFileContent = String$(LOF(intFilePointer), vbNullChar)
Get #intFilePointer, , strFileContent
Debug.Print strFileContent
End Sub


Private Sub Form_Unload(Cancel As Integer)
Close #intFilePointer
End Sub

--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
http://apisvb.europe.webmatrixhosting.net/



houbahop2003 a écrit :

> Bonjour,
> Je désire que certains fichiers ne soient pas modifiables pendant que
> mon appli est lancée et que les verrous soient retirés lorsque je
> quitte mon appli
> Je précise que les fichiers devront etre lus tout de meme.
>
> Avez vous une idée pour réaliser cela ? je n'ai pas trouvé d'exemple
> d'api en vb.
>
> MErci,
>
> Dominique.