Erreur 70 sur certains postes mais pas sur d'autre... !
1 réponse
Cybertat
Bonjour à tous,
J'ai développé un petit code qui permet de remplir un tableau excel avec la
taille de certains répertoires et le nombre de fichier qu'il contient. Ca
marche très bien quand c'est en local mais, quand c'est un chemin réseau, il
y a des postes pour lesquelles un message d'erreur apparait (Erreur 70 :
Permission refusé).
Le code étant fait pour des superviseurs, ils ont tous les droits
administrateurs sur les serveurs et même plus. Bref, je séche ! Please, HELP
!!!
Voici mon code :
Sub TailleNbLog()
'Déclaration des variables et objet
Dim IntExSV, IntExGS, IntNbFich, IntRow As Integer
Dim Fso As Object, FS As Double
Dim Dossier As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
IntRow = 12
For IntExSV = 1 To 4
For IntExGS = 1 To 2
'Spécification du chemin des dossiers
Set Dossier = Fso.GetFolder("\\exchange" & IntExSV & "\e$\SV" &
IntExSV & "-GS" & IntExGS & "-LOG")
'Recherche des données
FS = Dossier.Size
IntNbFich = IntNbFich + Dossier.Files.Count
'Saisie des résultats dans le tableau
Range("D" & IntRow).Value = "" & FS
Range("E" & IntRow).Value = "" & IntNbFich
IntRow = IntRow + 1
Nb = 0
Next IntExGS
Next IntExSV
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
isabelle
bonjour Cybertat,
est ce que tous les poste ont accès à l'intégral du "C" des autres postes ?
voici ce que dit l'aide pour l'erreur 70 :
Permission refusée (erreur 70)
Vous avez tenté d'écrire sur un disque protégé en écriture ou d'accéder à un fichier verrouillé. Causes et solutions de cette erreur :
Vous avez tenté d'ouvrir un fichier protégé en écriture pour un accès séquentiel Output ou Append. Ouvrez le fichier pour un accès Input ou changez l'attribut de protection en écriture du fichier.
Vous avez tenté d'ouvrir un fichier sur un disque protégé en écriture pour un accès séquentiel Output ou Append. Retirez la protection en écriture du disque ou ouvrez le fichier pour un accès Input.
Vous avez tenté d'écrire dans un fichier qu'un autre processus a verrouillé. Attendez que l'autre processus libère le fichier pour l'ouvrir.
Vous avez tenté d'accéder à la base de registres, mais vos permissions utilisateur n'incluent pas ce type d'accès. Sur des systèmes Microsoft Windows 32 bits, un utilisateur doit avoir les permissions appropriées pour accéder à la base de registres du système. Changez vos permissions ou demandez à l'administrateur système de le faire.
isabelle
Bonjour à tous,
J'ai développé un petit code qui permet de remplir un tableau excel avec la taille de certains répertoires et le nombre de fichier qu'il contient. Ca marche très bien quand c'est en local mais, quand c'est un chemin réseau, il y a des postes pour lesquelles un message d'erreur apparait (Erreur 70 : Permission refusé).
Le code étant fait pour des superviseurs, ils ont tous les droits administrateurs sur les serveurs et même plus. Bref, je séche ! Please, HELP !!!
Voici mon code : Sub TailleNbLog() 'Déclaration des variables et objet Dim IntExSV, IntExGS, IntNbFich, IntRow As Integer Dim Fso As Object, FS As Double Dim Dossier As Object Set Fso = CreateObject("Scripting.FileSystemObject") IntRow = 12
For IntExSV = 1 To 4 For IntExGS = 1 To 2 'Spécification du chemin des dossiers Set Dossier = Fso.GetFolder("exchange" & IntExSV & "e$SV" & IntExSV & "-GS" & IntExGS & "-LOG") 'Recherche des données FS = Dossier.Size IntNbFich = IntNbFich + Dossier.Files.Count 'Saisie des résultats dans le tableau Range("D" & IntRow).Value = "" & FS Range("E" & IntRow).Value = "" & IntNbFich IntRow = IntRow + 1 Nb = 0 Next IntExGS Next IntExSV
Set Fso = Nothing End Sub
bonjour Cybertat,
est ce que tous les poste ont accès à l'intégral du "C" des autres postes ?
voici ce que dit l'aide pour l'erreur 70 :
Permission refusée (erreur 70)
Vous avez tenté d'écrire sur un disque protégé en écriture ou d'accéder à un fichier verrouillé. Causes et solutions de cette erreur :
Vous avez tenté d'ouvrir un fichier protégé en écriture pour un accès séquentiel Output ou Append.
Ouvrez le fichier pour un accès Input ou changez l'attribut de protection en écriture du fichier.
Vous avez tenté d'ouvrir un fichier sur un disque protégé en écriture pour un accès séquentiel Output ou Append.
Retirez la protection en écriture du disque ou ouvrez le fichier pour un accès Input.
Vous avez tenté d'écrire dans un fichier qu'un autre processus a verrouillé.
Attendez que l'autre processus libère le fichier pour l'ouvrir.
Vous avez tenté d'accéder à la base de registres, mais vos permissions utilisateur n'incluent pas ce type d'accès.
Sur des systèmes Microsoft Windows 32 bits, un utilisateur doit avoir les permissions appropriées pour accéder à la base de registres du système. Changez vos permissions ou demandez à l'administrateur
système de le faire.
isabelle
Bonjour à tous,
J'ai développé un petit code qui permet de remplir un tableau excel avec la
taille de certains répertoires et le nombre de fichier qu'il contient. Ca
marche très bien quand c'est en local mais, quand c'est un chemin réseau, il
y a des postes pour lesquelles un message d'erreur apparait (Erreur 70 :
Permission refusé).
Le code étant fait pour des superviseurs, ils ont tous les droits
administrateurs sur les serveurs et même plus. Bref, je séche ! Please, HELP
!!!
Voici mon code :
Sub TailleNbLog()
'Déclaration des variables et objet
Dim IntExSV, IntExGS, IntNbFich, IntRow As Integer
Dim Fso As Object, FS As Double
Dim Dossier As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
IntRow = 12
For IntExSV = 1 To 4
For IntExGS = 1 To 2
'Spécification du chemin des dossiers
Set Dossier = Fso.GetFolder("\exchange" & IntExSV & "e$SV" &
IntExSV & "-GS" & IntExGS & "-LOG")
'Recherche des données
FS = Dossier.Size
IntNbFich = IntNbFich + Dossier.Files.Count
'Saisie des résultats dans le tableau
Range("D" & IntRow).Value = "" & FS
Range("E" & IntRow).Value = "" & IntNbFich
IntRow = IntRow + 1
Nb = 0
Next IntExGS
Next IntExSV
est ce que tous les poste ont accès à l'intégral du "C" des autres postes ?
voici ce que dit l'aide pour l'erreur 70 :
Permission refusée (erreur 70)
Vous avez tenté d'écrire sur un disque protégé en écriture ou d'accéder à un fichier verrouillé. Causes et solutions de cette erreur :
Vous avez tenté d'ouvrir un fichier protégé en écriture pour un accès séquentiel Output ou Append. Ouvrez le fichier pour un accès Input ou changez l'attribut de protection en écriture du fichier.
Vous avez tenté d'ouvrir un fichier sur un disque protégé en écriture pour un accès séquentiel Output ou Append. Retirez la protection en écriture du disque ou ouvrez le fichier pour un accès Input.
Vous avez tenté d'écrire dans un fichier qu'un autre processus a verrouillé. Attendez que l'autre processus libère le fichier pour l'ouvrir.
Vous avez tenté d'accéder à la base de registres, mais vos permissions utilisateur n'incluent pas ce type d'accès. Sur des systèmes Microsoft Windows 32 bits, un utilisateur doit avoir les permissions appropriées pour accéder à la base de registres du système. Changez vos permissions ou demandez à l'administrateur système de le faire.
isabelle
Bonjour à tous,
J'ai développé un petit code qui permet de remplir un tableau excel avec la taille de certains répertoires et le nombre de fichier qu'il contient. Ca marche très bien quand c'est en local mais, quand c'est un chemin réseau, il y a des postes pour lesquelles un message d'erreur apparait (Erreur 70 : Permission refusé).
Le code étant fait pour des superviseurs, ils ont tous les droits administrateurs sur les serveurs et même plus. Bref, je séche ! Please, HELP !!!
Voici mon code : Sub TailleNbLog() 'Déclaration des variables et objet Dim IntExSV, IntExGS, IntNbFich, IntRow As Integer Dim Fso As Object, FS As Double Dim Dossier As Object Set Fso = CreateObject("Scripting.FileSystemObject") IntRow = 12
For IntExSV = 1 To 4 For IntExGS = 1 To 2 'Spécification du chemin des dossiers Set Dossier = Fso.GetFolder("exchange" & IntExSV & "e$SV" & IntExSV & "-GS" & IntExGS & "-LOG") 'Recherche des données FS = Dossier.Size IntNbFich = IntNbFich + Dossier.Files.Count 'Saisie des résultats dans le tableau Range("D" & IntRow).Value = "" & FS Range("E" & IntRow).Value = "" & IntNbFich IntRow = IntRow + 1 Nb = 0 Next IntExGS Next IntExSV
