Bonjour,

Je n'arrive pas à trouver le problème de l'erreur 800A0400 à la ligne 12, caract. 3. Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Script to automate mounting of EncFS volumes
'
' This script must be run from the same directory as
' the encfs.exe file.
'
MountVolume "D:\Documents", "O:", "MotdePasse"
 
Sub MountVolume(crypt, decrypt, pw)
  Set WshShell = WScript.CreateObject("WScript.Shell")
  Dim Cmd
  Cmd = "%COMSPEC% /c echo " & pw & "|""" & WshShell.CurrentDirectory & "\encfs.exe"" """
  & crypt & """ """ & decrypt & """ -S"
  WshShell.Run Cmd, vbHide
End Sub
Merci.