bonsoir,
je souhaite convertir ce vbs en vb.net
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Set scrEnc = CreateObject("Scripting.Encoder")
Set scrFSO = CreateObject("Scripting.FileSystemObject")
 
    myfile = scrFSO.OpenTextFile("MonFichier.vbs").ReadAll
    If scrFSO.FileExists("MonFichier_encode.vbe") Then scrFSO.DeleteFile "MonFichier_encode.vbe", True
    myFileEncode=scrENC.EncodeScriptFile(".vbs", myfile, 0, "")
 
    Set ts = scrFSO.CreateTextFile("MonFichier_encode.vbe", True, False)
    ts.Write myFileEncode
ts.close
voilà où j'en suis
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
Dim scrEnc
            Dim scrFSO
            Dim myfile
            Dim myFileEncode
            Dim ts
 
            scrEnc = CreateObject("Scripting.Encoder")
            scrFSO = CreateObject("Scripting.FileSystemObject")
 
            myfile = scrFSO.OpenTextFile("c:\coffre\coffre.vbs").ReadAll
            If scrFSO.FileExists("c:\coffre\coffre.vbe") Then scrFSO.DeleteFile("c:\coffre\coffre.vbe", True)
            myFileEncode = scrEnc.EncodeScriptFile(".vbs", myfile, 0, "")
 
            ts = scrFSO.CreateTextFile("c:\coffre\coffre.vbe", True, False)
            ts.Write(myFileEncode)
            ts.close()
le probleme est que si apres je fait :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
If System.IO.File.Exists("c:\coffre\coffre.vbs") Then
                File.Delete("c:\coffre\coffre.vbs")
j'ai une erreur de quoi que le vbs est toujours utiliser par un autre processus

??