Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
5802 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Path Relatif / Absolue dans "opentextfile"

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Path Relatif / Absolue dans "opentextfile"

n°934204
folkN2
Posté le 30-12-2004 à 16:06:30  profilanswer
 

bonjour,
 
j'aimerais pvr utiliser un path relatif a mon programem plutot que de donner le che complet
 
pour le moment jutilise ca  

Code :
  1. attak = fsatt.opentextfile("C:\attak.txt", enlecture, False)


 
mais j'aimerais donc pouvoir mettre le programme dans F:\test1\blabla\ avec mon fichier attak.txt dedans , sans avoir a recompiler pour changer le path en dur!
 
Le must serait de mettre un mini browser pour que l'utilisateur montre ou est le fichier (sans tapper le chemin) mais je sais pas si c'est possible en VB ca :'(
 
 
aplusche!
folk

mood
Publicité
Posté le 30-12-2004 à 16:06:30  profilanswer
 

n°934211
Gfreeman
http://www.FGFasp.com
Posté le 30-12-2004 à 16:17:57  profilanswer
 

C'est possible de faire ça :) avec tous les outils CreateDirectory, FolderExists etc etc..

n°934212
pc75
Posté le 30-12-2004 à 16:19:18  profilanswer
 

Bonjour,
 
Il ya ça :
Dim WshObj
Set WshObj = Wscript.CreateObject("WScript.Shell" )
' Ouvrir avec
'WshObj.Run "RunDll32.exe Shell32.dll,OpenAs_RunDLL", 1, True
 
ou ça :
'// Create the Object
'cd = new ActiveXObject("MSComDlg.CommonDialog" )
set cd = CreateObject("MSComDlg.CommonDialog" )
 
'// Set file filter
cd.Filter = "All Files(*.*)|*.*|JScript Files(*.js)|*.js"
cd.FilterIndex = 2
 
'// Must set MaxFileSize. Otherwise you will get an error
cd.MaxFileSize = 128
 
'// Show it to user
cd.ShowOpen()
 
'// Retrieve file + path
file = cd.FileName
 
'// If the user does enter file exit
if file = "" then
   WScript.Echo("You must enter a file name" )
   WScript.Quit(0)
else
   WScript.Echo("The user selected:\n" + file )
end if

n°934222
folkN2
Posté le 30-12-2004 à 16:31:17  profilanswer
 

erf erf :)
merci pour les reponses... mais.. avec mon niveau je dois dire que je ne comprend pas grand chose :'(
 
et surtout je ne vois pas comment utiliser le code :/ il me met des erreurs a la compile ou alors le prog plante

n°934225
pc75
Posté le 30-12-2004 à 16:34:41  profilanswer
 

Re,
 
Quelles erreurs ?
Peux-tu préciser.

n°934229
folkN2
Posté le 30-12-2004 à 16:36:27  profilanswer
 

en fait je dois mal utiliser ton code...
 
j'ai creer un bouton est collé ton code dans la partie associé au bouton.. pour qu'il charge l'objet.. :/
 
sinon j'ai un probleme pour declarer WScript
j'ai rajouté  
Dim WScript
mais sans succes

n°934517
pc75
Posté le 31-12-2004 à 08:01:51  profilanswer
 

Re,
Tu dois ajouter la référence à VbScript
Dans VB6, Menu Projet, Références, et tu coches "Microsoft Scripting Runtime"


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Path Relatif / Absolue dans "opentextfile"

 

Sujets relatifs
[java]util.zip - ne pas stocker le path ?ASP CDO ....PROBLEME DE RETURN PATH
Un "script" empechant la saisie direct de l'URL absolue dune image?[CSS]calque relatif aligné en bas de la page
taille relative/absolueFileInputStream et chemin relatif
[C/C++] interroger le système (connaitre le path sous linux)PHP sous unix comment faire un require sur un fichier en relatif
variable d'environnement LD_LIBRARY_PATH et Qtchemin relatif ou absolu
Plus de sujets relatifs à : Path Relatif / Absolue dans "opentextfile"


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)