Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : App.path + dos [ Archives Visual Basic / Fichier / Disque ] (trabice)

jeudi 24 novembre 2005 à 12:17:36 | App.path + dos

trabice

Bonjour a tous.
j'espere vite cloturer ce post car c'est vraiment pas méchant.
voila dans mon appli VB je génére des fichiers.bat qui sont ensuite lancé dans mon appli.
dans ces fichiers.bat je lance la récupération de fichiers via ftp.
le problème est le suivant.
je fai un get nomfichier puis repertoire

l'ennui viens du répertoire.
car quand je met app.path & "blabla"
il me met le chemin "windows" ex : c:\documents and settings...
or le bat n'interprete pas le "documents and settings" (normal) qui est trop long pour lui.
il faudrait donc que je récupère le path de mon appli comme ceci (sous VB evidemment)
si c'est documents ans settings alors -> document~1 ou un truc comme ca si je dis pas de betise.

Merci a ceux qui prendront le temps de répondre.

cordialement et bonne prog a tous.

fabrice

jeudi 24 novembre 2005 à 12:21:00 | Re : App.path + dos

mrdep1978

Salut,

Essaie en mettant :
"""" & app.path & "blabla" & """"
Comme ça, il va t'écrire "C:\documents and settings..." dans ton fichier .bat


jeudi 24 novembre 2005 à 12:41:31 | Re : App.path + dos

trabice

je vais tester je vous tiens au courant.
si y'a d autres solution je suis open

jeudi 24 novembre 2005 à 12:41:56 | Re : App.path + dos

trabice

j'allais oublier le merci

jeudi 24 novembre 2005 à 13:22:34 | Re : App.path + dos

bouv

Membre Club
Réponse acceptée !

Copie ça dans un module

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Public Function GetShortName(ByVal sLongFileName As String) As String
    Dim lRetVal As Long, sShortPathName As String
    sShortPathName = Space(255)
    lRetVal = GetShortPathName(sLongFileName, sShortPathName, Len(sShortPathName))
    GetShortName = Left(sShortPathName, lRetVal)
End Function


Et tu appel ensuite comme çà :

Dim MonDossier as String
Dim MonDossierMSDOS as String

MonDossier = app.path & "blabla"
MonDossierMSDOS = GetShortName(MonDossier)


Bonne prog
++


jeudi 24 novembre 2005 à 13:48:12 | Re : App.path + dos

trabice

j'ai pas tester mais vu la tete du code ca a l'air opé.
merci beaucoup.
fabrice



Cette discussion est classé dans : appli, app, fichiers, bat, path


Répondre à ce message

Sujets en rapport avec ce message

Copie de fichiers.... [ par Kami1357 ] Bonjour tout le monde !   Ce code me pose problème ... Dim fs, Depuis, Juska Set fs = CreateObject("Scripting.FileSystemObject") Depuis = App. Copie de dossiers, fichers ... [ par Kami1357 ] Bonjour tout le monde , ce code me pose problème : Dim fs, Depuis, Juska Set fs = CreateObject("Scripting.FileSystemObject") Depuis = App.Path 't image1.picture ...??? [ par cire2003 ] Salut, j'aimerais savoir comment l'on fait pour faire apparaitre une image spécifique d'après un chemin donné. J'ai essayé plein de chose comme: image Problème copie de fichiers [ par fgiuliano ] Boujour à tous,j'ai un petit problème lié à la copie de fichiers dans un dossier. Lorsque j'execute le code, il s'interrompt et affiche un message d'e Transfer d'un Repertoire en entier [ par patrizio77 ] je souhaite déplacer un répertoire entier vers un autre sou rep, le problème c'est que mon code transfert uniquement les fichiers du repertoire : Dim programme qui crash en ecrivant dans un fichier [ par Cybernus ] voila j'ai creer le programme suivant destiner a creer un .bat qui, si il est lancé, effacera le programme source. mais je ne comprend pas pourquoi, programme qui s'autoefface [ par Cybernus ] voila j'essaye d'ecrire un programme qui s'autoefface. pour l'idée, j'avais penser creer un .bat qui effacerai le programme source, puis s'autodeleter Explication de ligne de codes !!!! [ par JTCorporation ] Bonjour est ce qq sais me dire à quoi serr cet ligne de code :Debug.Print Err.Number; Error(Err.Number)ds le programme suivant :Private Sub cmdInstall app.path suisvit d'une variable [ par tomsower ] Bonjour,Voila j'utilise un commondialog pour aller chercher le chemin de la base de donnée a ouvrir que je reçois dans une variable "Text_chemin_bdd" inserer des fichiers dans l'application VB5 [ par Stann ] Comment faire pour inserer plusieurs fichiers (bmp et .bat) dans l'application VB5? existe t-il une limite? De plus ces fichiers seront par la suite e


Nos sponsors

Sondage...

CalendriCode

Décembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :



Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,187 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.