[Ouvrir un fichier Texte] avec VB 6.0

Tu peux utiliser la fonction app.path

Essaye cela dans une simple feuille :

Private Sub Command1_Click()
Caption = App.Path
End Sub

Cela te donne le chemin où l'application est installée

2 ans en retard :

Il faut utiliser un chemin relatif par rapport à l'EXE.
Si tu es certain que le fichier est dans le même répertoire par exemple alors ouvre le fichier ".\tonfichier.txt"
"." correspond normalement au répertoire en cour ... donc le + souvent celui de l'EXE.
++

salu une autre fois je travaille sur une application dans un stage et je veux votre aide et merci mon probleme est: je veux recupérer des donné depuis un fichier txt bloc note et l'afficher dans une etat dans une application et merci aidée moi le plus vite possible

salut ,
je vien de cree un fichier XML ,et il est parfait, seulement j'ai trouvé un probléme lors que je vien d'extraire les champs et de les affiché ds une listebox .
Merci de repondre .

Bonjour les deveoppeurs

Je vous remercie d'avance d'avoir répondu à mon problème.
mon problème est le suivant: je veux ouvrir un fichier text et enregistrer son contenu (le text) dans une base de donnée SqlServer avec ASP.NET2008

Thanx very match

bonjour
s'il ya qq qui pourra m'aider dans la correction de ce code je lui serai très reconnaissante.
bah en fait c'est le code d'une petite fonction qui permet d'importer un fichier texte vers fichier excel implémenté sous VB 6.0... le fichier xl s'ouvre mais ya rien dedans c vide!! et ca va me rendre alienée pr ne po dire que g commencé à l'etre l'application je dois la rendre dans deux jours et y me reste des tas de taches à effectuerr. aidez moi SVP

volà le code:

Private Sub importer_Click()
Dim waexcel: Set waexcel = CreateObject("excel.Application") 'Ouverture d'Excel
StrPath = "h:\stage\test1" 'Chemin d'accès du fichier
If Right(StrPath, 1) <> "\" Then StrPath = StrPath & "\" 'Ajout \ à la fin s'il y en a pas

StrFich = Dir(StrPath, vbArchive)
Do While MyName <> "" ' Commence la boucle.
waexcel.Visible = False 'Rendre invisible Excel
'Importation du fichier texte vers une feuille Excel
waexcel.Workbooks.OpenText StrPath & StrFich, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:= _
False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1) _
, TrailingMinusNumbers:=True
'Sauvegarde de la feuille importée vers le chemin d'accès de départ en modifiant l'extension
waexcel.Workbooks(StrFich).SaveAs StrPath & Left(StrFich, Len(StrFich) - 4) & ".txt", , , , , , 2
StrFich = Dir ' Extrait l'entrée suivante.
Loop
'Fermeture d'Excel
waexcel.Application.Quit

End Sub

je veux voir tu les détails pour créer un fichier aec vb

Salut,

1. Tu crées une fonction qui permet de trouver ce fichier n'importe où sur disque.

2. Tu inséres carrément dans ton projet ce fichier ou son contenu.

3. Tu crées un fichier d'aide avec
http://www.helpmaster.com/hlp-developmentaids-hcw403.htm
http://sjrd.developpez.com/windows/windowstutoriels/creerhlp/?page=page_1
http://www.toutfr.com/?p=programs_show&wid=723

bonjour tt le monde, bah je voulais juste que qq1 m'aide dans le code de l'ouverture d'un fichier. bah en fait g une application à réaliser (durant mon stage) qui permet d'importer des fichiers résultats d'un logiciel CHIRplus dans un tableau excel(juste des données pertinentes et utiles dans le traitement des fréquences). l'application est implémentée sous VB version 6.0.. là g commencé à me familiariser avec le VB(en dépit que cela fait la 1ère fois que je travaille avec) g écrit une petite ligne dans le code du boutton ouvrir qui permt d'ouvrir ces fichiers résultats mais comme 1ère étape g choisi dans l'ouverture un document word pour tester mon code, mais hélas! ca se compile pas bah voici le code q g ecrit je vous demande de m'aider SVP..merci d'avance.

Form1.Show
Open H:\stage\rapport.doc For Input As #1(ouverture du fichier rapport comme titre d'exemple)
Do Until EOF(1)(pour la lecture jusqu'à la fin du fichier)
Loop
Close #1