Hej Per
Så kører det bare og jeg er verdens gladeste lige nu.
Er dig dybt taknemmelig - du har reddet min dag (og natten med).
Hvis du kaster din adr. i en mail til mig lover jeg at sende til et par
rigtig gode flasker rødvin
Du har været til MEGA hjælp.
Tusind tak.
Mvh
John
"Per" <Jensenp@Hotmail.com> skrev i en meddelelse
news:MPG.1e5b0e25a42d490a989701@news.tele.dk...
> John Hansen < charme@c.dk > skrev følgende:
>
> > Hej Jan
> >
> > Rigtig mange tak for dine oplysninger, som jeg omgående gik i gang med.
> > Alt virkede tilsyneladende helt perfekt, lige indtil jeg valgte filer
fra
> > mapper der indeholder mellemrum.
> >
> > Mappen hvorfra filer skal hentes, altså "FromFolder", indeholder
desværre et
> > mellemrum:
> > "D:\Programmer\NKT\Software programmer\Billeder\"
> >
> > Det accepteres derfor ikke af InStr(FromFolder, " ") = 0 da den finder
et
> > mellemrum (i dette tilfælde) på position 27.
> >
> > If InStr(fileName, " ") = 0 And InStr(FromFolder, " ") = 0 And
> > InStr(ToFolder, " ") = 0 Then
> > Inet1.Execute , "SEND " & FromFolder & fileName & " " & ToFolder &
> > fileName
> >
> > While Not m_OK
> > DoEvents
> > Wend
> > End If
> >
> > Jeg har forsøgt at hente filer fra placeringer på harddisken der ikke
> > indeholder mellemrum i strenge, og så fungerer det naturligvis
udemærket.
> > Imidlertid kan brugere sagtens finde på at vælge mapper der indeholder
> > mellemrum, så jeg er ude efter en løsning der kan bruges bredt.
> >
> > Den gik desværre ikke med at fjerne "If InStr....", så uploades
ingenting.
> >
> > Hvordan takler jeg problemet.
> >
> > På forhånd tusind tak.
> >
> > Mange varme hilsener
> > John
>
> [snip]
>
> Hej John,
>
> Jeg blander mig lige ....
>
> Løsningen på dit problem er, at du skal lave lange stinavne om til korte
> stinavne, før du bruger dem videre i dit program:
>
> Sæt følgende ind i et modul (ret selv til for linebreak i din
> newsreader):
>
> Private Declare Function GetShortPathName Lib "kernel32" Alias
> "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath
> As String, ByVal lBuffer As Long) As Long
>
> Public Function GetShortPath(strFileName As String) As String
> 'KPD-Team 1999
> 'URL:
http://www.allapi.net/
> 'E-Mail: KPDTeam@Allapi.net
> Dim lngRes As Long, strPath As String
> 'Create a buffer
> strPath = String$(165, 0)
> 'retrieve the short pathname
> lngRes = GetShortPathName(strFileName, strPath, 164)
> 'remove all unnecessary chr$(0)'s
> GetShortPath = Left$(strPath, lngRes)
> End Function
>
> Funktionen kaldes fra dit program med:
>
> Dim kortsti as string
>
> kortsti = GetShortPath("D:\Programmer\NKT\Software programmer\Billeder
> \")
>
>
> --
> Med venlig hilsen
>
> Per