Bonjour, j'ai un script vbs, qui récupére la fichier ou dossier glisser le vbs, puis ensuite je veut exécuter un code si c'est un fichier, ou un autre code si c'est un dossier, pouriez vous m'aider ?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
' On récupére le chemin du fichiers ou dossier glisser le le VBS et on la place dans la variable: vrRcpChmFchOuDoss
Set objArgs = WScript.Arguments 
     For I = 0 to objArgs.Count - 1 
        vrRcpChmFchOuDoss = objArgs(I) 
Next
 
 
vrChmRepSauvCleUsb = "Z:\KooKaTix_Interface\Interface\KooKaTix_Sauvegardes\Ma clé USB"
 
 
Set FSO = CreateObject("Scripting.FileSystemObject") ' Pour la copie de fichiers et de dossiers.
 
 
' on copie un fichier si c'est un fichier qui a été glisser:
FSO.CopyFile "vrRcpChmFchOuDoss", "vrChmRepSauvCleUsb"
 
 
' on copi le dossier si c'est un dossier qui a été glisser:
FSO.CopyFolder "vrRcpChmFchOuDoss", "vrChmRepSauvCleUsb"

En batch dos je fesait ca:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
if not !%~x1==!  ( echo c'est un fichier
 ) else (
            echo c'est un dossier
 )
N'y a-t-il pas quelque chose de similaire en vbs ?