convertir vbs en vb.net

Version imprimable

bonsoir,
je souhaite convertir ce vbs en vb.net

Code:

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:

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:

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

??

31/05/2011, 09h27
sylverio

Bonjour,

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

Code:

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

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

Code:

myfile.close()

avant ton :

Code:

File.Delete("c:\coffre\coffre.vbs")
31/05/2011, 22h00
zitoune31

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

Citation:

erreur : Le membre public 'close' du type 'string' est introuvable
31/05/2011, 22h30
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
31/05/2011, 22h32
zitoune31

Citation:

Envoyé par Pol63

.dispose à la place de .close ?

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

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:

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

Bonjour,
j'avais oublier de poster la solution que j'ai trouver

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim sw As StreamWriter
            If Not File.Exists("c:\coffre\code.vbs") Then
                'Le fichier n'existe pas. On le crée
                sw = New StreamWriter("c:\coffre\code.vbs")
                sw.WriteLine("Set scrEnc = CreateObject(""Scripting.Encoder"")")
                sw.WriteLine("Set scrFSO = CreateObject(""Scripting.FileSystemObject"")")
                sw.WriteLine("myfile = scrFSO.OpenTextFile(""c:\coffre\coffre.vbs"").ReadAll")
                sw.WriteLine("If scrFSO.FileExists(""c:\coffre\coffre.vbe"") Then scrFSO.DeleteFile ""c:\coffre\coffre.vbe"", True")
                sw.WriteLine("myFileEncode=scrENC.EncodeScriptFile("".vbs"", myfile, 0, """")")
                sw.WriteLine("Set ts = scrFSO.CreateTextFile(""c:\coffre\coffre.vbe"", True, False)")
                sw.WriteLine("ts.Write myFileEncode")
                sw.WriteLine("ts.close")
                sw.Close()
                sw = Nothing
            End If

cela ma obliger donc de crée un fichier temporaire que je supprime par la suite mais le but rechercher es résolu ;)