Page 1 sur 1

Existance d'un répertoire

Posté : 08 juil. 2022, 15:43
par Nemesis
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

Re: Existance d'un répertoire

Posté : 09 juil. 2022, 04:33
par Onissius
(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

Re: Existance d'un répertoire

Posté : 09 juil. 2022, 11:32
par yves remors
la fonction répertoire ne suffit pas ?

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


<Var1> oui

Re: Existance d'un répertoire

Posté : 09 juil. 2022, 17:45
par Onissius
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"

Re: Existance d'un répertoire

Posté : 10 juil. 2022, 19:02
par yves remors
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.

Re: Existance d'un répertoire

Posté : 11 juil. 2022, 00:59
par Onissius
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é.

Re: Existance d'un répertoire

Posté : 11 juil. 2022, 09:06
par Nemesis
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

Re: Existance d'un répertoire

Posté : 11 juil. 2022, 10:12
par Nemesis
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.