Vérifier si le type de fichier existe

Question

J'écris un script VBA dans Excel pour Mac et j'ai besoin de vérifier si un type de fichier existe dans un répertoire particulier. Je pense que la meilleure façon d'y parvenir était d'utiliser la commande MacScript pour invoquer un script shell.

ScriptToRun = "do shell script ""ls '/path/to/folder/test.txt'""" 
MacScript(ScriptToRun) 

Cela fonctionne mais dès que je mets un caractère d'expansion dans la ligne, il échoue. Par exemple:

ScriptToRun = "do shell script ""ls '/path/to/folder/*.txt'""" 

Answer 1

Je ne suis pas familier avec Excel sur un Mac, mais vous devriez être en mesure d'utiliser la fonction Dir, en spécifiant le MacID pour le type de fichier que vous recherchez. Si elle renvoie une chaîne vide, il n'y a aucun fichier de ce type dans le répertoire. C'est à dire.

If Dir("SomePath", MacID("TEXT")) <> "" Then 
    'Do something 
End If