Existance d'un répertoire

Postez ici si vous avez des difficultés a comprendre une commande, ou a créer une macro.
Répondre
Nemesis
Messages : 3
Enregistré le : 08 juil. 2022, 15:35

Existance d'un répertoire

Message par Nemesis » 08 juil. 2022, 15:43

Bonjour,
Je cherche depuis quelques temps un moyen de tester l'existence d'un répertoire avec Super Macro mais sans succès. Quelqu'un saurait il me dire ce que j'ai raté (il me semble avoir tout essayer).
Sinon existe t il un script compatible VBS que je pourrais éventuellement insérer dans ma macro?
Par avance merci

Avatar du membre
Onissius
Messages : 752
Enregistré le : 11 avr. 2014, 22:47
Localisation : Lyon (France)
Contact :

Re: Existance d'un répertoire

Message par Onissius » 09 juil. 2022, 04:33

(Source) Un truc comme ça ?

'--------------------------------------------------------------------------
' Vérify if the folder exists.
'
' Parameters :
'-------------
' strFolderPath : Path of the folder.
'
' Retour :
'---------
' true if the folder exists, false else.
'
' See also :
'-------------
' Voir ReadFile,WriteFile,FileAttribs,WriteFileAttribs,DeleteFile,CopyFile,MoveFile
'--------------------------------------------------------------------------
Function FolderExists(strFolderPath)
Dim fileObject

Set fileObject = CreateObject("Scripting.FileSystemObject")

On Error Resume Next ' Si erreur, continuer
FolderExists = fileObject.FolderExists(strFolderPath)
If Err.number <> 0 Then
FolderExists = False
Call Err.Clear()
End If
On Error Goto 0
Set fileObject = Nothing
End Function
J'ai découvert SM en 99, rapidement Adam m'a promu admin.
Posez vos questions aussi clairement que possible, sans fautes qui piquent les yeux et relisez vous.
Vérifiez sur mon DISCORD si je suis en ligne.

yves remors
Messages : 17
Enregistré le : 07 mai 2018, 01:03

Re: Existance d'un répertoire

Message par yves remors » 09 juil. 2022, 11:32

la fonction répertoire ne suffit pas ?

Variable <Var1>;;Alpha;
Fonction <Var1>;Fichier;répertoire?;"C:\Program Files (x86)";


<Var1> oui

Avatar du membre
Onissius
Messages : 752
Enregistré le : 11 avr. 2014, 22:47
Localisation : Lyon (France)
Contact :

Re: Existance d'un répertoire

Message par Onissius » 09 juil. 2022, 17:45

Aucune idée, j'ai juste trouver ce bout de code (à priori en VBS).

Je cherche à comprendre cette fonction ...
Pour le moment, ton code répond toujours "Oui".
J'arrive à avoir une réponse différente si le répertoire à un fichier spécifique, ou non. La réponse est inversée, mais elle change.
Variable <Var1>;0;Alpha;
Fonction <Var1>;Fichier;répertoire?;C:\BRU\test.txt;
Message Message;<Var1>;
Si le fichier est présent j'ai un "Non", si il est absent, j'ai "Oui"
J'ai découvert SM en 99, rapidement Adam m'a promu admin.
Posez vos questions aussi clairement que possible, sans fautes qui piquent les yeux et relisez vous.
Vérifiez sur mon DISCORD si je suis en ligne.

yves remors
Messages : 17
Enregistré le : 07 mai 2018, 01:03

Re: Existance d'un répertoire

Message par yves remors » 10 juil. 2022, 19:02

c'est dans la rubrique fichier donc une fonction liée aux fichiers, essayer de comprendre la description :?:


Description générale : Retourne le mot "oui" ou "non" suivant que lors de la saisie du paramètre 4 (Nom complet du fichier)ne serait finalement pas un nom de fichier valide mais plutôt un nom de répertoire.

Avatar du membre
Onissius
Messages : 752
Enregistré le : 11 avr. 2014, 22:47
Localisation : Lyon (France)
Contact :

Re: Existance d'un répertoire

Message par Onissius » 11 juil. 2022, 00:59

J'zrrive à le faire pour un fichier, pas pour un répertoire. Part de mon bout de code pour chercher. Je n'ai pas trouvé.
J'ai découvert SM en 99, rapidement Adam m'a promu admin.
Posez vos questions aussi clairement que possible, sans fautes qui piquent les yeux et relisez vous.
Vérifiez sur mon DISCORD si je suis en ligne.

Nemesis
Messages : 3
Enregistré le : 08 juil. 2022, 15:35

Re: Existance d'un répertoire

Message par Nemesis » 11 juil. 2022, 09:06

Merci pour vos réponse.
Je voulais savoir si je pouvais m'en sortir seulement avec SM mais visiblement pas.
Il va falloir chercher du code plus du coté de VBS mais je n'ai jamais réussi à l'incorporer correctement dans SM.
Même le tout petit script dans le faq 4.1 de SM je n'arrive pas à l'utiliser (erreur syntaxe de code [1002]).
Je vais voir du coté HLML peut être ...
En tout les cas merci pour votre temps.

Némésis

Nemesis
Messages : 3
Enregistré le : 08 juil. 2022, 15:35

Re: Existance d'un répertoire

Message par Nemesis » 11 juil. 2022, 10:12

Voici ma solution privilégiée...un petit fichier bat lol que je nomme "RepExist.bat":
IF exist "rep" echo "OUI">RepExist.bat
IF NOT exist "rep" echo "NON">RepExist.bat

Je fais des calculs évoluer pour écrire dans le .bat
en ligne1 : IF exist "+<Mon adresse>+" ...
en ligne2 : IF NOT exist "+<Mon adresse>+"....
Le fait de mettre > ou >> indique comment écrire dans le bat, à la place (>) de tout ou à la suite de tout(>>).
Bref, j'ai choisi > comme ça il n'y a que la réponse qui reste dans mon fichier .bat
Il faut penser à temporiser pour lui laisser le temps d'écrire "OUI" ou "NON".

Ce n'est pas la première foi que je recours à un petit fichier bat complémentaire pour me sortir d'une impasse. (Renommer des répertoires par exemple).
PS :j'aime pas les accents(ni le vocabulaire, ni ma grammaire etc...lol),désolé pour les fautes.

Répondre