"Youri Ligotmi" a écrit dans le message de
news:499c91a2$0$31462$
| Bonjour
Bonjour,
Note: Congés terminés ;-(
| Avec un script vbs je dois copier un fichier texte dans tout un tas de
| répertoires, ces répertoires sont surveillés en taille par Quota
| Server donc il est possible que la copie échoue.
| Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
| vérifier que le fichier est présent parce qu'il est possible qu'un
| fichier du même nom soit déjà présent dans le répertoire?
Le script VBScript ci-dessous effectue la copie d'un fichier dans un
dossier dont le disque est surveillé par le système de quota de disque
natif Microsoft Windows 2003 pour l'utilisateur courant. J'ai fixé à cet
utilisateur une limite de 5 Mo. Celui-ci a déjà consommé 4,12 Mo donc la
copie du fichier système va échouer. C'est le but non ;-)
--- CodeSnippet ---
On Error Resume Next ' gestion des erreurs
Set oFs=CreateObject("Scripting.FileSystemObject")
oFs.CopyFile "C:WindowsSystem32Kernel32.dll", "D:test", True
If Err.Number<> 0 Then
WScript.Echo "Oops ! An error occured:0x" & Hex(Err.Number)
End If
--- CodeSnippet ---
En exécutant ce script, j'obtiens en retour l'erreur 0x80070070
Avec l'outil Win32Error, la traduction de ce code correspond à :
Espace insuffisant sur le disque.
Win32Error :
http://glsft.free.fr/index.php?option=com_content&task=view&idW&Itemid(
"Youri Ligotmi" <yl@free.fr.invalid> a écrit dans le message de
news:499c91a2$0$31462$426a34cc@news.free.fr
| Bonjour
Bonjour,
Note: Congés terminés ;-(
| Avec un script vbs je dois copier un fichier texte dans tout un tas de
| répertoires, ces répertoires sont surveillés en taille par Quota
| Server donc il est possible que la copie échoue.
| Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
| vérifier que le fichier est présent parce qu'il est possible qu'un
| fichier du même nom soit déjà présent dans le répertoire?
Le script VBScript ci-dessous effectue la copie d'un fichier dans un
dossier dont le disque est surveillé par le système de quota de disque
natif Microsoft Windows 2003 pour l'utilisateur courant. J'ai fixé à cet
utilisateur une limite de 5 Mo. Celui-ci a déjà consommé 4,12 Mo donc la
copie du fichier système va échouer. C'est le but non ;-)
--- CodeSnippet ---
On Error Resume Next ' gestion des erreurs
Set oFs=CreateObject("Scripting.FileSystemObject")
oFs.CopyFile "C:WindowsSystem32Kernel32.dll", "D:test", True
If Err.Number<> 0 Then
WScript.Echo "Oops ! An error occured:0x" & Hex(Err.Number)
End If
--- CodeSnippet ---
En exécutant ce script, j'obtiens en retour l'erreur 0x80070070
Avec l'outil Win32Error, la traduction de ce code correspond à :
Espace insuffisant sur le disque.
Win32Error :
http://glsft.free.fr/index.php?option=com_content&task=view&idW&Itemid(
"Youri Ligotmi" a écrit dans le message de
news:499c91a2$0$31462$
| Bonjour
Bonjour,
Note: Congés terminés ;-(
| Avec un script vbs je dois copier un fichier texte dans tout un tas de
| répertoires, ces répertoires sont surveillés en taille par Quota
| Server donc il est possible que la copie échoue.
| Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
| vérifier que le fichier est présent parce qu'il est possible qu'un
| fichier du même nom soit déjà présent dans le répertoire?
Le script VBScript ci-dessous effectue la copie d'un fichier dans un
dossier dont le disque est surveillé par le système de quota de disque
natif Microsoft Windows 2003 pour l'utilisateur courant. J'ai fixé à cet
utilisateur une limite de 5 Mo. Celui-ci a déjà consommé 4,12 Mo donc la
copie du fichier système va échouer. C'est le but non ;-)
--- CodeSnippet ---
On Error Resume Next ' gestion des erreurs
Set oFs=CreateObject("Scripting.FileSystemObject")
oFs.CopyFile "C:WindowsSystem32Kernel32.dll", "D:test", True
If Err.Number<> 0 Then
WScript.Echo "Oops ! An error occured:0x" & Hex(Err.Number)
End If
--- CodeSnippet ---
En exécutant ce script, j'obtiens en retour l'erreur 0x80070070
Avec l'outil Win32Error, la traduction de ce code correspond à :
Espace insuffisant sur le disque.
Win32Error :
http://glsft.free.fr/index.php?option=com_content&task=view&idW&Itemid(
Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota Server
donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans vérifier
que le fichier est présent parce qu'il est possible qu'un fichier du même
nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota Server
donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans vérifier
que le fichier est présent parce qu'il est possible qu'un fichier du même
nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota Server
donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans vérifier
que le fichier est présent parce qu'il est possible qu'un fichier du même
nom soit déjà présent dans le répertoire?
Merci d'avance
YL
"Youri Ligotmi" a écrit dans le message de
news:499c91a2$0$31462$Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota
Server donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
vérifier que le fichier est présent parce qu'il est possible qu'un
fichier du même nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Créer un fonction qui prendra trois paramètres: le fichier source, le
chemin cible, le nombre d'erreurs.
Appeler la fonction avec un compteur d'erreur a 0
En début de fonction mettre un On Error Resume Next
et positionner la valeur de la fonction sur faux
Evaluer le compteur d'erreur afin d'éviter d'avoir une boucle sans fin
en cas d'erreur
If intCountError > 10 Then Exit Function
Effectuer la copie en utilisant le fso
NomFunction = False
Evaluer le code d'erreur par quelque chose du genre:
If Err.Number <> 0 Then
intCountError = intCountError +1
Err.Clear
' Mettre une pause 2 sec
WScript.Sleep 2000
' Rappeler la fonction avec les paramètres et le compteur d'erreur
Else
NomFunction = True
Exit Function
End If
En fin c'est une idée, pas un code complet ;-)
N'hésites pas si ce n'était pas clair
"Youri Ligotmi" <yl@free.fr.invalid> a écrit dans le message de
news:499c91a2$0$31462$426a34cc@news.free.fr...
Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota
Server donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
vérifier que le fichier est présent parce qu'il est possible qu'un
fichier du même nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Créer un fonction qui prendra trois paramètres: le fichier source, le
chemin cible, le nombre d'erreurs.
Appeler la fonction avec un compteur d'erreur a 0
En début de fonction mettre un On Error Resume Next
et positionner la valeur de la fonction sur faux
Evaluer le compteur d'erreur afin d'éviter d'avoir une boucle sans fin
en cas d'erreur
If intCountError > 10 Then Exit Function
Effectuer la copie en utilisant le fso
NomFunction = False
Evaluer le code d'erreur par quelque chose du genre:
If Err.Number <> 0 Then
intCountError = intCountError +1
Err.Clear
' Mettre une pause 2 sec
WScript.Sleep 2000
' Rappeler la fonction avec les paramètres et le compteur d'erreur
Else
NomFunction = True
Exit Function
End If
En fin c'est une idée, pas un code complet ;-)
N'hésites pas si ce n'était pas clair
"Youri Ligotmi" a écrit dans le message de
news:499c91a2$0$31462$Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota
Server donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
vérifier que le fichier est présent parce qu'il est possible qu'un
fichier du même nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Créer un fonction qui prendra trois paramètres: le fichier source, le
chemin cible, le nombre d'erreurs.
Appeler la fonction avec un compteur d'erreur a 0
En début de fonction mettre un On Error Resume Next
et positionner la valeur de la fonction sur faux
Evaluer le compteur d'erreur afin d'éviter d'avoir une boucle sans fin
en cas d'erreur
If intCountError > 10 Then Exit Function
Effectuer la copie en utilisant le fso
NomFunction = False
Evaluer le code d'erreur par quelque chose du genre:
If Err.Number <> 0 Then
intCountError = intCountError +1
Err.Clear
' Mettre une pause 2 sec
WScript.Sleep 2000
' Rappeler la fonction avec les paramètres et le compteur d'erreur
Else
NomFunction = True
Exit Function
End If
En fin c'est une idée, pas un code complet ;-)
N'hésites pas si ce n'était pas clair
jbongran a écrit :"Youri Ligotmi" a écrit dans le message de
news:499c91a2$0$31462$Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota Server
donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
vérifier que le fichier est présent parce qu'il est possible qu'un
fichier du même nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Créer un fonction qui prendra trois paramètres: le fichier source, le
chemin cible, le nombre d'erreurs.
Appeler la fonction avec un compteur d'erreur a 0
En début de fonction mettre un On Error Resume Next
et positionner la valeur de la fonction sur faux
Evaluer le compteur d'erreur afin d'éviter d'avoir une boucle sans fin en
cas d'erreur
If intCountError > 10 Then Exit Function
Effectuer la copie en utilisant le fso
NomFunction = False
Evaluer le code d'erreur par quelque chose du genre:
If Err.Number <> 0 Then
intCountError = intCountError +1
Err.Clear
' Mettre une pause 2 sec
WScript.Sleep 2000
' Rappeler la fonction avec les paramètres et le compteur d'erreur
Else
NomFunction = True
Exit Function
End If
En fin c'est une idée, pas un code complet ;-)
N'hésites pas si ce n'était pas clair
Merci, mais j'ai pas tout compris, notamment l'intérêt de la variable
'NomFonction'.
Je m'en suis sorti avec la méthode proposée par Gilles Laurent.
Merci encore
jbongran a écrit :
"Youri Ligotmi" <yl@free.fr.invalid> a écrit dans le message de
news:499c91a2$0$31462$426a34cc@news.free.fr...
Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota Server
donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
vérifier que le fichier est présent parce qu'il est possible qu'un
fichier du même nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Créer un fonction qui prendra trois paramètres: le fichier source, le
chemin cible, le nombre d'erreurs.
Appeler la fonction avec un compteur d'erreur a 0
En début de fonction mettre un On Error Resume Next
et positionner la valeur de la fonction sur faux
Evaluer le compteur d'erreur afin d'éviter d'avoir une boucle sans fin en
cas d'erreur
If intCountError > 10 Then Exit Function
Effectuer la copie en utilisant le fso
NomFunction = False
Evaluer le code d'erreur par quelque chose du genre:
If Err.Number <> 0 Then
intCountError = intCountError +1
Err.Clear
' Mettre une pause 2 sec
WScript.Sleep 2000
' Rappeler la fonction avec les paramètres et le compteur d'erreur
Else
NomFunction = True
Exit Function
End If
En fin c'est une idée, pas un code complet ;-)
N'hésites pas si ce n'était pas clair
Merci, mais j'ai pas tout compris, notamment l'intérêt de la variable
'NomFonction'.
Je m'en suis sorti avec la méthode proposée par Gilles Laurent.
Merci encore
jbongran a écrit :"Youri Ligotmi" a écrit dans le message de
news:499c91a2$0$31462$Bonjour
Avec un script vbs je dois copier un fichier texte dans tout un tas de
répertoires, ces répertoires sont surveillés en taille par Quota Server
donc il est possible que la copie échoue.
Comment peut-on diagnostiquer ça en vbs (genre errorlevel), sans
vérifier que le fichier est présent parce qu'il est possible qu'un
fichier du même nom soit déjà présent dans le répertoire?
Merci d'avance
YL
Créer un fonction qui prendra trois paramètres: le fichier source, le
chemin cible, le nombre d'erreurs.
Appeler la fonction avec un compteur d'erreur a 0
En début de fonction mettre un On Error Resume Next
et positionner la valeur de la fonction sur faux
Evaluer le compteur d'erreur afin d'éviter d'avoir une boucle sans fin en
cas d'erreur
If intCountError > 10 Then Exit Function
Effectuer la copie en utilisant le fso
NomFunction = False
Evaluer le code d'erreur par quelque chose du genre:
If Err.Number <> 0 Then
intCountError = intCountError +1
Err.Clear
' Mettre une pause 2 sec
WScript.Sleep 2000
' Rappeler la fonction avec les paramètres et le compteur d'erreur
Else
NomFunction = True
Exit Function
End If
En fin c'est une idée, pas un code complet ;-)
N'hésites pas si ce n'était pas clair
Merci, mais j'ai pas tout compris, notamment l'intérêt de la variable
'NomFonction'.
Je m'en suis sorti avec la méthode proposée par Gilles Laurent.
Merci encore