Détecter fichier ou dossier
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:
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:
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 ?
