openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "technik_div@jrsch.de" <technik_...@jrsch.de>
Subject Re: Problem mit DIR Funktion
Date Thu, 02 Feb 2017 07:56:24 GMT
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


Mime
View raw message