Discussion :

[zitoune31]

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

??

[sylverio]

Bonjour,

le problème est que tu as ouvert le fichier avec la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myfile = scrFSO.OpenTextFile("c:\coffre\coffre.vbs").ReadAll

donc tu dois fermer le fichier avant de pouvoir le supprimer avec un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

myfile.close()

avant ton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

File.Delete("c:\coffre\coffre.vbs")

[zitoune31]

Bonsoir,
merci de ta réponse mais j'obtiens l'erreur suivante :

erreur : Le membre public 'close' du type 'string' est introuvable

[Pol63]

.dispose à la place de .close ?

sinon pour lire et écrire du texte dans un fichier il y a system.io.file.readalltext(chemin) et writealltext

[zitoune31]

.dispose à la place de .close ?

j'ai également essayer mais l'erreur est idem

[zitoune31]

Bonsoir étant toujours bloquer je me résigne à vouloir écrire le code en .vbs à partir de vb
simplement comment gérer les " , ( ) ?
sachant que je désire donc écrire ce fichier :

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