Test d'ouverture de fichiers

Question

Bonjour,
j'aimerais savoir comment tester si un fichier ouvert par un open "C:\documents...." est ouvert ou non?

Le but de cette question est de pouvoir fermer ce fichier s'il est ouvert en cas d'erreur dans la fonction et de ne pas y toucher s'il est déjà fermé...

Merci

troxsa · Answer

Bonjour,

La lecture des processus te serait'il pas suffissant ?

Cordialement

http://www.troxsa.info/
Le site qui ne parle qu'un seul langage, visual basic 2005

cs_Nyouki · Answer

jrivet · Answer

Salut, Ceci peut marché, bien que pas très propre mais bon. (pas testé) On Error Resume Next Open "C:\Test.txt" For Input As #1 If Err.Number <> 0 Then Close #1 On Error GoTo 0 Coloration syntaxique automatique [AFCK] @+, Julien Pensez: Moteur de Recherche, Réponse Acceptée

cs_Nyouki · Answer

@ TroXsA : Comment puis-je réaliser la lecture des processus? puis fermer le bon si le fichier en question est ouvert?

@ jrivet : Désolé mais il me faut absolument quelque chose de propre...!

Merci

troxsa · Answer

http://www.troxsa.info/index.php?option=com_content&task=view&id=66&Itemid=2



apres tu fait un dim p as process et utilise la methode kill 
je pourrais te faire un exemple complet si tu y arrive pas !
(tout est en vb.net 2005)

http://www.troxsa.info/
Le site qui ne parle qu'un seul langage, visual basic 2005

cs_Nyouki · Answer

Je veux bien un exemple STP Troxsa, je suis pas sur de comprendre commentmarche ta méthode...

troxsa · Answer

Ok, je te fait ça !

http://www.troxsa.info/
Le site qui ne parle qu'un seul langage, visual basic 2005

troxsa · Answer

Bon je te donne le code mais sa fonctionne pas encore  :( un probleme je sais pas ou encore
vu que je suis encore au taff et qu'on mer demande de faire du travaille :) je peu pas trop regarder ou ce trouve le probleme, si tu pouvais voir ou ce trouve le probleme :) car je pense avoir fait le plus gros
il faut imports System.management
je te fait sa plus tard si tu trouve pas comment faire ! desoler 

Private



Sub
 KillFile(

ByVal
 PathFile 

As



String
)


Dim
 myProcesses() 

As
 Process


Dim
 oClassWmiProcessus 

As



New
 SelectQuery(

"Win32_Process"
)


Dim
 oProcessusInfo 

As



New
 ManagementObjectSearcher(oClassWmiProcessus)


For



Each
 Info 

As
 ManagementObject 

In
 oProcessusInfo.Get()


Try






Dim
 Description 

As



String
 = Info(

"Description"
).ToString()


Dim
 CommandLine 

As



String
 = Info(

"CommandLine"
).ToString


Dim
 ExecuteblePath 

As



String
 = Info(

"ExecutablePath"
).ToString()Console.WriteLine(Description & vbTab & CommandLine & _

ExecuteblePath)


If
 CommandLine.IndexOf(PathFile) > 0 

Then

myProcesses = Process.GetProcessesByName(Info(




"Description"
).ToString())myProcesses(0).Kill()


End



If






Catch
 ex 

As
 Exception


Exit



Try






End



Try






Next














http://www.troxsa.info/

Le site qui ne parle qu'un seul langage, visual basic 2005

cs_Nyouki · Answer

Merci!
je cherche l'erreur et je te tiens au courant!

troxsa · Answer

Je sais pas si tu as eu le temps de regarder mais j'ai fait un petit exemple sur un kill simple, tu peux peut etre le reprendre et l'adapté au code la haut ...

http://www.troxsa.info/index.php?option=com_content&task=view&id=69&Itemid=2

http://www.troxsa.info/
Le site qui ne parle qu'un seul langage, visual basic 2005

Test d'ouverture de fichiers

10 réponses

Votre réponse

Discussions similaires