openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Oliver Brinzing <Oliver.Brinz...@gmx.de>
Subject Re: Problem mit DIR Funktion
Date Thu, 02 Feb 2017 19:30:58 GMT
versuch mal den Zugriff mit dem Service "com.sun.star.ucb.SimpleFileAccess"
z.B. http://www.dannenhoefer.de/faqstarbasic/WiekannmandieDateienineinemOrdnerunddenU.html

Am 02.02.2017 um 08:56 schrieb technik_div@jrsch.de:
> Hier das Makro:
>
> sub test
> REM zeigt alle Verzeichnisse
> Dim sPath As String
> Dim sDir as String, sValue as String
> sDir="Verzeichnisse:"
> PathSeparator="/"
> sPath = ConverttoURL("G:")
> datei1=sPath + PathSeparator + "*.*"
> sValue = Dir$(datei1,1)
>
> Do
>     If sValue <> "." and sValue <> ".." Then
>         afile=sPath + PathSeparator + sValue
>
>
>         sattr=GetAttr( sPath + PathSeparator + sValue)
>         sattr2 = (sattr AND 16)
>         iNumber = Freefile
>
>         if (sattr2) >0 then
>         REM hier die Verzeichnisse holen
>         sDir = sDir & chr(13) & sValue
>         End If
>     End If
>     sValue = Dir$
> Loop Until sValue = ""
> MsgBox sDir,0,sPath
>
> end sub
>
>
> Am 02.02.2017 um 08:54 schrieb technik_div@jrsch.de:
>> Hallo,
>>
>> irgend etwas scheint mit der DIR Funktion bei den Makros nicht zu stimmen:
>>
>> Die Funktion, so wie sie in der Hilfe steht scheitert an "getPathSepararor" Das habe
ich repariert
>> und eine Variable mit dem Wert "/" da eingesetzt. Das funktioniert für normale Dateien,
aber nicht
>> für Verzeichnisse. (Attrib Parameter =0)
>>
>> Ich habe das Muster umgeschrieben zum Debuggen und stelle fest, dass mit dem Attrib
Parameter = 16
>> nur
>> $RECYCLE.BIN
>> .Trash-1000
>> gefunden wird.
>> nicht die anderen Verzeichnisse.
>>
>> Was läuft da schief?
>>
>> Horst
>>
>> ---------------------------------------------------------------------
>> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
>> For additional commands, e-mail: users-de-help@openoffice.apache.org
>>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
> For additional commands, e-mail: users-de-help@openoffice.apache.org
>
>


---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org


Mime
View raw message