OVH Cloud OVH Cloud

attendre ! comment faire autrement ...

5 réponses
Avatar
je voudrais que ce qu'il y'a dans le try s'execute toute les 1 secondes en
faisant une sorte de pause
car cette boucle prends 100% du cpu jusqu'a ce que le fichier soit ok !
le probleme c'est que je peux avoir des fichiers qui peuvent venir par le
web ou le ftp
et la plusieurs minutes peuvent s'ecouler ce qui ralentit considerablement
le serveur.

Dim nFileNum As Integer
nFileNum = FreeFile()
while (a=0)
Try
FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
FileClose(nFileNum)
Console.WriteLine("fichier ok !!!")
Exit While
Catch
Exit Try
End Try
End While

5 réponses

Avatar
j'ai la reponse !!
System.Threading.Thread.Sleep(1000) c'est des millisecondes donc si je ne me
trompe 1000ms = 1s ?




a écrit dans le message de news:
%
je voudrais que ce qu'il y'a dans le try s'execute toute les 1 secondes en
faisant une sorte de pause
car cette boucle prends 100% du cpu jusqu'a ce que le fichier soit ok !
le probleme c'est que je peux avoir des fichiers qui peuvent venir par le
web ou le ftp
et la plusieurs minutes peuvent s'ecouler ce qui ralentit considerablement
le serveur.

Dim nFileNum As Integer
nFileNum = FreeFile()
while (a=0)
Try
FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
FileClose(nFileNum)
Console.WriteLine("fichier ok !!!")
Exit While
Catch
Exit Try
End Try
End While




Avatar
Rhanima Adegbindi [MS]
Bonjour ,

Vous pouvez essayer d'utiliser la méthode Sleep de l'objet Thread
appartenant au namespace System.Threading
Imports System

Imports System.Threading

Dim nFileNum As Integer
nFileNum = FreeFile()
while (a=0)
Try
FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
FileClose(nFileNum)
Console.WriteLine("fichier ok !!!")



================
Thread.sleep(1000)

=================
Exit While
Catch
Exit Try
End Try
End While



Cordialement,

Rhanima Adegbindi


a écrit dans le message de news:
%
je voudrais que ce qu'il y'a dans le try s'execute toute les 1 secondes en
faisant une sorte de pause
car cette boucle prends 100% du cpu jusqu'a ce que le fichier soit ok !
le probleme c'est que je peux avoir des fichiers qui peuvent venir par le
web ou le ftp
et la plusieurs minutes peuvent s'ecouler ce qui ralentit considerablement
le serveur.

Dim nFileNum As Integer
nFileNum = FreeFile()
while (a=0)
Try
FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
FileClose(nFileNum)
Console.WriteLine("fichier ok !!!")
Exit While
Catch
Exit Try
End Try
End While




Avatar
Rhanima Adegbindi [MS]
Exact

a écrit dans le message de news:

j'ai la reponse !!
System.Threading.Thread.Sleep(1000) c'est des millisecondes donc si je ne
me trompe 1000ms = 1s ?




a écrit dans le message de news:
%
je voudrais que ce qu'il y'a dans le try s'execute toute les 1 secondes
en faisant une sorte de pause
car cette boucle prends 100% du cpu jusqu'a ce que le fichier soit ok !
le probleme c'est que je peux avoir des fichiers qui peuvent venir par le
web ou le ftp
et la plusieurs minutes peuvent s'ecouler ce qui ralentit
considerablement le serveur.

Dim nFileNum As Integer
nFileNum = FreeFile()
while (a=0)
Try
FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
FileClose(nFileNum)
Console.WriteLine("fichier ok !!!")
Exit While
Catch
Exit Try
End Try
End While








Avatar
Alan
Vous en êtes resté à VB6...
La methode Freefile n'est-elle pas obsolète?
J'utilise System.IO.fileWriter ... Je le trouve plus performant. Est-ce que
je me trompte?

"Rhanima Adegbindi [MS]" a écrit :

Bonjour ,

Vous pouvez essayer d'utiliser la méthode Sleep de l'objet Thread
appartenant au namespace System.Threading
Imports System

Imports System.Threading

Dim nFileNum As Integer
> nFileNum = FreeFile()
> while (a=0)
> Try
> FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
> FileClose(nFileNum)
> Console.WriteLine("fichier ok !!!")

================ >
Thread.sleep(1000)

================= >
> Exit While
> Catch
> Exit Try
> End Try
> End While

Cordialement,

Rhanima Adegbindi


a écrit dans le message de news:
%
> je voudrais que ce qu'il y'a dans le try s'execute toute les 1 secondes en
> faisant une sorte de pause
> car cette boucle prends 100% du cpu jusqu'a ce que le fichier soit ok !
> le probleme c'est que je peux avoir des fichiers qui peuvent venir par le
> web ou le ftp
> et la plusieurs minutes peuvent s'ecouler ce qui ralentit considerablement
> le serveur.
>
> Dim nFileNum As Integer
> nFileNum = FreeFile()
> while (a=0)
> Try
> FileOpen(nFileNum, FULL_FILE, OpenMode.Binary, OpenAccess.Write)
> FileClose(nFileNum)
> Console.WriteLine("fichier ok !!!")
> Exit While
> Catch
> Exit Try
> End Try
> End While
>
>





Avatar
TroXsA - [VB.NET-2005]
> La methode Freefile n'est-elle pas obsolète?
J'utilise System.IO.fileWriter ... Je le trouve plus performant. Est-ce
que
je me trompte?



System.IO.fileWriter
le trouve pas moi !!! :)



--
TroXsA
http://cerbermail.com/?rIXgaw9Xsl