Passer variable dans une commande GetFolder

Version imprimable

26/11/2017, 22h25
Superpat9999

Passer variable dans une commande GetFolder
Bonjour,
Je veux passer la variable strChemin pour me servir de la commande Getfolder :
Merci d'avance pour votre aide
Code:

1 2 3 Dim strChemin strChemin="M:\logiciels" Set Folder=Fso.GetFolder("M:\logiciels")

Code:

1
2
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(strChemin)

Citation:

Envoyé par NeriXs

Code:

1
2
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(strChemin)

Merci NeriXs de ta réponse,
Je mets le code complet, je n'avais pas oublié la ligne, mais je n'arrive pas à passer ma variable !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
option explicit
 
' Permet d'écrire la variable "var" dans un fichier (temp.txt)
 
Dim var, launch, fso, fichier, folder ,f ,WshShell
Dim strChemin
 
' var : valeur à récupérer
' launch : permet de lancer le bat
' fso : permet d'ouvrir un fichier
' f : contient information sur le fichier (lecture,ecriture)
' folder : nom du dossier
 
' Lit le contenu d'un fichier dans une variable
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set fso = CreateObject("Scripting.FileSystemObject" )
Set f = fso.OpenTextFile("temp1.txt", ForReading)
strChemin = f.ReadAll
f.Close
 
' Verification
wscript.echo strChemin
 
 
Set Fso=CreateObject("Scripting.FileSystemObject")
Set Folder=Fso.GetFolder("M:\logiciels")
 'WScript.Echo Folder.Size
 
var = Folder.Size
 
'Const ForReading = 1, ForWriting = 2
   Set WshShell = WScript.CreateObject("WScript.Shell")
   Set fichier = fso.OpenTextFile("C:\Users\P8z77vPro-PC\Desktop\temp.txt", ForWriting,true)
   fichier.write("" &var)
   fichier.close()
wscript.echo var

Si je remplace par la variable, j'ai le message chemin d'accès introuvable. Pourtant à la vérification, ligne du dessus (23) le chemin est bon.:arf:

27/11/2017, 09h19
ProgElecT
Salut

Ligne 10 ' fso : permet d'ouvrir un fichier :nono: ' fso : permet de créer un objet de type FileSystemObject;).

Ligne 26 Set Fso=CreateObject("Scripting.FileSystemObject") tu n'est pas obligé de recréer l'objet FSO, tu l'a déjà fait ligne 17

Citation:

Pourtant à la vérification, ligne du dessus (23) le chemin est bon

Es tu sûr que strChemin correspond bien exactement à, nom du lecteur:\dossier\
Essais en mettant une condition ligne 23
Code:

1 2 3 4 5 If strChemin = "M:\logiciels" Then wscript.echo "Ok pour" & strChemin Else wscript.echo "No Ok pour" & strChemin End if
Si No Ok, essais en modifiant la ligne 19, strChemin = Trim(f.ReadLine)
27/11/2017, 09h40
Superpat9999

3 pièce(s) jointe(s)

Merci ProgElecT
No OK, même après modification pourtant :
Pièce jointe 330361
Je pensais que ce pouvais être les guillemets, mais ce n'est pas le cas.
Pièce jointe 330366
Pièce jointe 330371
J'ai réessayé, le fichier est OK s’il ne contient pas les guillemets.
Donc, je pense qu'il faut que je rajoute les guillemets avant et après dans ma variable, ce que je ne sais pas faire :pleure:
27/11/2017, 10h14
ProgElecT

m ou M pour le nom du lecteur ?
Le lecteur doit être en MAJUSCULE dans ta variable strChemin donc aussi dans ton fichier temp1.txt
27/11/2017, 10h23
Superpat9999

Citation:

Envoyé par ProgElecT

m ou M pour le nom du lecteur ?
Le lecteur doit être en MAJUSCULE dans ta variable strChemin donc aussi dans ton fichier temp1.txt

Oui, tu as raison, c'était cela. Je croyais que le "Dos", gérait indifféremment les maj et min.
27/11/2017, 10h30
ProgElecT

Bien

Citation:

je pense qu'il faut que je rajoute les guillemets avant et après dans ma variable, ce que je ne sais pas faire

Si tu as besoin pour une autre situation: Mavariable = Chr(34) & "A que coucou" & Chr(34) --> ""A que coucou ""

Sinon, résolut? alors Bt. :resolu:
27/11/2017, 10h32
Superpat9999

Dernière question,
Pourquoi une majuscule pour le dossier ?
27/11/2017, 10h39
ProgElecT

Il faut qu'il y ai concordance pour que la condition If soit valable.
Mais je persiste a penser que ton ReadAll te renvoyait soit un Newline et/ou un/des caractères espaces.
27/11/2017, 10h45
Superpat9999

Citation:

Envoyé par ProgElecT

Il faut qu'il y ai concordance pour que la condition If soit valable.
Mais je persiste a penser que ton ReadAll te renvoyait soit un Newline et/ou un/des caractères espaces.

C'est bien cela, car avec une minuscule tout fonctionne.
Merci pour l'aide et les renseignements
Bonne journée