bonsoir,
je souhaite convertir ce vbs en vb.net
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 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
le probleme est que si apres je fait :
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()
j'ai une erreur de quoi que le vbs est toujours utiliser par un autre processus
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")
??
Partager