App.path + dosRésolu

Question

Bonjour a tous.
j'espere vite cloturer ce post car c'est vraiment pas m&#233;chant.
voila dans mon appli VB je g&#233;n&#233;re des fichiers.bat qui sont ensuite lanc&#233; dans mon appli.
dans ces fichiers.bat je lance la r&#233;cup&#233;ration de fichiers via ftp.
le probl&#232;me est le suivant.
je fai un get nomfichier puis repertoire

l'ennui viens du r&#233;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&#233;cup&#232;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&#233;pondre.

cordialement et bonne prog a tous.

fabrice

bouv · Accepted Answer

Copie &#231;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 &#231;&#224; :

Dim MonDossier as String
Dim MonDossierMSDOS as String

MonDossier = app.path & "blabla"
MonDossierMSDOS = GetShortName(MonDossier)

Bonne prog
++

mrdep1978 · Answer

Salut,



Essaie en mettant :

"""" & app.path & "blabla" & """"

Comme &#231;a, il va t'&#233;crire "C:\documents and settings..." dans ton fichier .bat

cs_trabice · Answer

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

cs_trabice · Answer

j'allais oublier le merci

cs_trabice · Answer

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

App.path + dos

5 réponses

Discussions similaires