IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

convertir vbs en vb.net


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut convertir vbs en vb.net
    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

    ??

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2003
    Messages
    23
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2003
    Messages : 23
    Par défaut
    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 :
    avant ton :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    File.Delete("c:\coffre\coffre.vbs")

  3. #3
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Bonsoir,
    merci de ta réponse mais j'obtiens l'erreur suivante :
    erreur : Le membre public 'close' du type 'string' est introuvable

  4. #4
    Expert éminent Avatar de Pol63
    Homme Profil pro
    .NET / SQL SERVER
    Inscrit en
    Avril 2007
    Messages
    14 197
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : .NET / SQL SERVER

    Informations forums :
    Inscription : Avril 2007
    Messages : 14 197
    Par défaut
    .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
    Cours complets, tutos et autres FAQ ici : C# - VB.NET

  5. #5
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    Citation Envoyé par Pol63 Voir le message
    .dispose à la place de .close ?
    j'ai également essayer mais l'erreur est idem

  6. #6
    Membre confirmé
    Homme Profil pro
    Téléconseiller
    Inscrit en
    Juin 2010
    Messages
    119
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Téléconseiller
    Secteur : High Tech - Opérateur de télécommunications

    Informations forums :
    Inscription : Juin 2010
    Messages : 119
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. convertir vbs en vbe
    Par ayarikhaoulakoukou dans le forum VBScript
    Réponses: 8
    Dernier message: 14/05/2011, 21h28
  2. Convertir de vb6 à vb.net
    Par younes4you dans le forum VB.NET
    Réponses: 3
    Dernier message: 13/11/2009, 18h47
  3. Convertir VBS -> VB.NET (2 lignes de code)
    Par arnofly dans le forum Général Dotnet
    Réponses: 2
    Dernier message: 09/04/2009, 17h15
  4. convertir fonction en vb.net to C#
    Par ouadie99 dans le forum VB.NET
    Réponses: 4
    Dernier message: 22/12/2006, 23h58
  5. [VB.NET] Transformer code VBS en VB.NET
    Par Marcello dans le forum ASP.NET
    Réponses: 1
    Dernier message: 22/12/2005, 16h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo