reprise d'un projet vb difficile

**alexlecool** · 16/04/2007, 15h44

je viens de reprendre un projet vb. J'ai modifié quelques lignes. Mais depuis cette modification, lorsque je demare l'appli, c'est l'ancien code source qui est executé. En mettant des points d'arret, on m'informe que ceux ci ne sont pas pris en compte car une option "bloquant les modifications des sources" serait activée. Elle serait dans outils/options/debugage/general. Cependant je n'ai pas debugage dans outils/option.

Quelqu'un peut-il m'aider?

merci d'avance!

**La Praline** · 16/04/2007, 16h04

=> Réponse système "D"...

Ben ... si tu as accès au code, essais de faire un Ctrl+C / Ctrl+V de l'ensemble de ton code, dans un nouveau projet que tu auras créer toi même...

**Delbeke** · 16/04/2007, 16h09

Les fichiers sources sont peut être en lecture seule sur ton disque dur

**alexlecool** · 16/04/2007, 16h20

J'ai deja essayé contol+c/control+v mais ca bugue mechamment.

Sinon, les fichiers ne sont pas en lecture seul mais en archive.

Auriez vous d'autres pistes svp?

**La Praline** · 16/04/2007, 16h21

Envoyé par alexlecool

Auriez vous d'autres pistes svp?

Mais ce sont des pistes !!! A toi de creuser !!!

**alexlecool** · 16/04/2007, 16h44

J'ai trouvé d'ou vennait le probleme. j'avais ajouté le code source suivant que j'avais trouvé sur le net:

Code :

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

1
2
3
4
5
6
7
8
9
 
Open "c:\connection.log" For Append As 1 
Print #1, "Erreur dans la procédure PDB To txt" 
Print #1, PdbConvert1.GetErrorText 
Print #1, ocxerror 
Print #1, " " 
Print #1, "***************************************" 
Print #1, " " 
Close()

Et c'est ca qui "fout la merde" dans le programme. Quand je met ce code en commentaire et que j'ecris tout autre code (comme une msgbox) ca marche.

Avez vous une explication dessus?

**Delbeke** · 16/04/2007, 17h06

Tu n'as peut être pas les droits en ecriture sur la racine de ton disque !
Sinon quelle ereur est générée et par quelle ligne ?

**alexlecool** · 16/04/2007, 17h23

le fait d'indiquer un autre chemin (par exemple : Open "C:\Documents and Settings\Mariluz MUKALA\Bureau\FTP\Connection.log" For Append As 1 )

ne change rien.

Aucun fichier n'est créé et le point d'arret sur le open ne fonctionne pas.

L'erreur est la suivante :

Erreur 2 'Open' n'est pas déclaré. La fonctionnalité d'E/S de fichier est disponible dans l'espace de noms 'Microsoft.VisualBasic'. C:\Documents and Settings\Mariluz MUKALA\Bureau\FTP\Connexion_FTP_v2\Connextion_FTP_v2\Form1.vb 146 9 Connextion_FTP_v2

Vois tu de quoi il en retourne? merci!!!

**Phifi** · 16/04/2007, 17h30

Idem que pour ton message http://www.developpez.net/forums/sho...d.php?t=316971

ça sent le .NET à plein nez cet erreur...

**alexlecool** · 16/04/2007, 17h53

je ne vois pas le rapport avec le dotnet. Peut etre pourrais tu expliquer?

**Phifi** · 16/04/2007, 18h04

Try, Catch, Finally est une fonctionnalité .NET

Les espaces de nom de type 'Microsoft.VisualBasic.xxx' sont typiquement de la syntaxe .NET. C'est la manière de gérer les classes du framework .NET (on pourrait l'apparenter aux références VB6)

Il sort d'où ce code ?

**Delbeke** · 16/04/2007, 18h16

Le code que tu nous a donné a été ecrit pour vb5/6, hors, il semblerai que tu utilises un Vb Net. Malgré une grande similitude entre ces version de vb, il y a une fracture entre les codes ecrits pour vb5/6 et les codes ecrits pour vb net. Pas de compatibilité ! merci bil

**alexlecool** · 17/04/2007, 10h22

J'ai ajouté ce code ci orienté dotnet :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Connexion()
 
        Dim la_date As String = System.DateTime.Now.Date()
        Dim login As String = txt_login.Text
        Dim sFileName As String = Application.StartupPath.ToString & "\toto.txt"
        Dim fs As New System.IO.FileStream(sFileName, IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
        Dim sw As New System.IO.StreamWriter(fs)
        sw.WriteLine("date: " & la_date & " personne: " & login & " nom corbeille: " & nom_corbeil)
        sw.Flush()
        sw.Close()
        fs.Close()
 
End Sub

Qui marche mais qui ecrase a chaque fois le fichier.

J'ai trouvé le code source suivant en dotnet mais il ne marche pas :

Pouvez vous me dire :

1) pourquoi le deuxieme code ne marche pas alors que c'est sensé etre du dotnet qui marche pour tout le monde.

2) comment eventuellement reutiliser le premier code source pour ecrire dans un fichier sans l'ecraser.

Merci