You are viewing a plain text version of this content. The canonical link for it is here.
Posted to users-de@openoffice.apache.org by "technik_div@jrsch.de" <te...@jrsch.de> on 2017/02/02 07:54:39 UTC
Problem mit DIR Funktion
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
Re: Problem mit DIR Funktion
Posted by Horst <te...@jrsch.de>.
Danke,
auf den Dannenh�fer h�tte ich auch kommen k�nnen :-[
Horst
Am 02.02.2017 um 20:30 schrieb Oliver Brinzing:
> versuch mal den Zugriff mit dem Service
> "com.sun.star.ucb.SimpleFileAccess"
> z.B.
> http://www.dannenhoefer.de/faqstarbasic/WiekannmandieDateienineinemOrdnerunddenU.html
---------------------------------------------------------------------
To unsubscribe, e-mail: users-de-unsubscribe@openoffice.apache.org
For additional commands, e-mail: users-de-help@openoffice.apache.org
Re: Problem mit DIR Funktion
Posted by Oliver Brinzing <Ol...@gmx.de>.
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
Re: Problem mit DIR Funktion
Posted by "technik_div@jrsch.de" <te...@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