Routine en VB6 vers visual 2010Résolu

Question

Bonsoir a tous,
Ne sachant pas faire, es-ce que l'un d'entre vous pourrait me transformer ce morceau de Visual Studio 6 en Visual Studio 2010.

Private Sub Lbl1_click()
Open app.Path & "/1.txt" For Input As  #1
Text1.text = Input(LOF(1),  #1)
Close #1
En sub

Private Sub Lbl2_click()
Open app.Path & "/2.txt" For Input As  #2
Text1.text = Input(LOF(2),  #2)
Close #2
En sub

Private Sub Lbl3_click()
Open app.Path & "/3.txt" For Input As  #3
Text1.text = Input(LOF(3),  #3)
Close #3
En sub

Private Sub Lbl4_click()
Open app.Path & "/4.txt" For Input As  #4
Text1.text = Input(LOF(4),  #4)
Close #2
En sub
Ect..........

Cela ne doit pas etre dur pour vous.
Un grand merci pour votre aide

lermite222 · Answer

Bonjour,
Sur ton clavier (sur le mien aussi d'ailleurs) il y a une touche très intéressante .. c'est la touche F1 qui te procure de l'aide.
Suffit de taper dans la page de MSDN
Ouvrir fichier texte
et tu tombe sur..
Dim fileReader As String
fileReader = My.Computer.FileSystem.ReadAllText("C:test.txt") 
 A+

bentic · Answer

Effectivement. En fait la ou je bloque c'est sur "Open app.Path" ce qui permet d'ouvrir un fichier de n'importe ou VB6. je cherche l'équivalent en VB2012

bentic · Answer

Ok, merci a vous

lermite222 · Answer

Petite précision supplémentaire..
    Dim S As String = My.Application.Info.DirectoryPath & "\"
    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText(S & "test.txt")
Attention, c'est le répertoire où se trouve l'Exe.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée .

Routine en VB6 vers visual 2010

4 réponses

Discussions similaires