Error: Subscript out of range script vbs

Résolu/Fermé
MrZoe
Messages postés
815
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
19 septembre 2018
- Modifié par MrZoe le 2/01/2013 à 02:20
MrZoe
Messages postés
815
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
19 septembre 2018
- 5 janv. 2013 à 22:51
Bonjour,

J'ai faite un script qui prend un nom de fichier depuis la ligne de commande (cmd) et affiche toutes les propriété de l'objet File correspondant. Le script doit décoder aussi les attributs de fichier renvoyés.

le probleme quand je l'exécute j'ai un erreur :

Error Message:

Windows Script Host

Script: C:\userlocationchange.vbs
Line: 19
Char: 1
Error: Subscript out of range: '[number: 1]'
Code: 800A0009
Source: Microsoft VBScript runtime error



Merci de vos réponse




If NomFic = " " Then
Set FSO = CreateObject("Scripting.FileSystemObject")
NomFic = WScript.Arguments(0)

If FSO.FolderExists(NomFic) Then


'******** récupere attibuts

If NomFic.Attributes And 1 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If


If NomFic.Attributes And 2 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If


If NomFic.Attributes And 4 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If


If NomFic.Attributes And 8 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If

If NomFic.Attributes And 16 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If

If NomFic.Attributes And 32 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If



If NomFic.Attributes And 64 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If


If NomFic.Attributes And 128 Then
strAttributs = "Fichier en lecture seule" & vbCrLf
End If


MsgBox "Le fichier possède les attributs: " & vbCrlf & StrAttibuts & NomFic.DateCreated &_
"Dernier modification" & NomFic.Date.LastModified & "Votre lecteur" & NomFic.Drive &_
"Nom du fichier" & NomFic.Name & "Le size du fichier" & NomFic.Size / 1024 & "Ko" &_
"Le type de fichier" & NomFic.Type

Else

MsgBox "Le fichier spécifié n'exite pas", vbExclamation

End If





4 réponses

Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
2 janv. 2013 à 20:22
Bonsoir MrZoe,

Dommage que c'est en VBScript.
0
lermite222
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
3 janv. 2013 à 12:23
Bonjour,
Il te manque le dernier End If
A+
0
Heliotte
Messages postés
1491
Date d'inscription
vendredi 26 octobre 2012
Statut
Membre
Dernière intervention
28 janvier 2013
92
3 janv. 2013 à 12:45
Merci lermitte222 et bonne année.
0
lermite222
Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
3 janv. 2013 à 14:25
Et tu a encore une autre erreur,
Dans le libellé de ton MsgBox, il faut un espace entre les & _
Ce que tu n'a pas fais.
0
MrZoe
Messages postés
815
Date d'inscription
lundi 21 décembre 2009
Statut
Membre
Dernière intervention
19 septembre 2018
131
5 janv. 2013 à 22:51
@ lermite222

Merci je lai corrigé tout marche a merveille
0