[gelöst] Platzhalter bei Dir-Befehl (Verzeichnisse)

[theindless]

Hallo,

ich hätte eine kurze Frage:

Grundsätzlich ist es ja möglich, mit dem Dir-Befehl und Parameter 16 eine Liste aller Verzeichnisse zu erstellen.

Bei Dateien ist es auch möglich z.B. nach "*.txt" zu suchen und damit eine Liste der Text-Dateien zu erhalten.
Dir("c:\Verzeichnis\*.txt", 0)

Gibt es für Verzeichnisse die Möglichkeit z.B. eine Liste aller Verzeichnisse zu suchen, die mit D beginnnen?
Ich dachte zuerst an

Dir("c:\Verzeichnis\d*", 16)

aber das funktioniert nicht...

[Frieder D.]

Hallo

Bei mir geht se serwohl.
hier der code:

Code: Alles auswählen

Sub ExampleDir
REM zeigt alle Dateien und die Verzeichnisse
Dim sPath As String
Dim sDir as String, sValue as String
sDir="Verzeichnisse:"
sPath = "C:\Users\Username\DeinOrdner"
sValue = Dir$(sPath + getPathSeparator + "p*",16)
Do
If sValue <> "." and sValue <> ".." Then
if (GetAttr( sPath + getPathSeparator + sValue) AND 16) >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

Gruß Frieder

[theindless]

Hallo Frieder,

ich hatte folgenden Code:

Code: Alles auswählen

Sub Dat_Auslese_StarOffice
Dim NextFile As String
Dim AllFiles As String

AllFiles = "" 
NextFile = Dir("c:\Eigene Dateien\p*", 16)	
While NextFile <> ""
AllFiles = AllFiles & Chr(13) & NextFile
NextFile = Dir 
Wend

msgBox AllFiles

End Sub

Aber das gibt kein Verzeichnis zurück, auch nicht wenn z.B. das Verzeichnis "Probe" existiert.

Warum?

[komma4]

wenn z.B. das Verzeichnis "Probe" existiert.

Weil "p" vielleicht ungleich "P" ist?

Kann's nicht probieren, da ich kein Windows habe

[theindless]

Hallo Winfried,

Groß-Kleinschreibung ist vielleicht das Problem

Muss ich in der Arbeit mal probieren.

Leider ist es mir nicht sinnvoll gelungen, die Makros an Privat weiterzugeben.
Die Makros als Ganzes weiterzugeben (XBA in Zip) scheint nicht die Lösung zu sein....

[Stephan]

Die Makros als Ganzes weiterzugeben (XBA in Zip) scheint nicht die Lösung zu sein....

Makros, die keine Dokumentmakros sind, gibts Du am Besten als Extension weiter. WEnn keine besonderen Anforderungen bestehen reicht dafür der bordmechanismus von OOo:

Extras-Makros-Makros verwalten- OpenOffice.org Basic, im erscheinenden Dialog Schaltfläche "Verwalten", im erscheinenden Dialog Register "Bibliotheken" und "Meine Makros & Dialoge" wählen und dann die Bibliothek markieren und auf "Export..." klickewn und als Extension exportieren.
Die so erhaltene Extension *,oxt kann auf dem Zielsystem per Dopelklick installiert werden.

Für höhere Ansprüche, z.B. eigene Menüs, verwende BasicAddOnBuilder:
http://extensions.services.openoffice.o ... donBuilder


Achtung:
wenn Du Bibliotheken als EXtension exportieren willst geht das nur mit selbsterstellten bibliotheken, nichzt mit Makros in der Bibliothel "Standard", evtl. mußt Du dort vorhandene Makros also zunächst (in der Basic-IDE) in eine neu angelegte (siehe obige Beschreibung nur Neu" statt "Export" verwenden) Bibliothek kopieren.


Tipp:
wie wäre es denn wenn Du darauf verzoichten würdest in DEinen Beiträgen inflationär Smileys zu verwenden? Für viele von uns würde das den ungestörten Lesefluss verbessern.



Gruß
Stephan

[theindless]

Tipp:
wie wäre es denn wenn Du darauf verzoichten würdest in DEinen Beiträgen inflationär Smileys zu verwenden? Für viele von uns würde das den ungestörten Lesefluss verbessern.

"I'll do my very best" (hier käme jetzt ein Smiley)


Lassen sich die als Extension exportierten und installierten Macros genauso wie eine Extension auch wieder entfernen??
Wäre ggf. wichtig, da ich teilweise an den Macros noch was ändere (Lernphase!).

[theindless]

Hallo Stephan,

hattest Recht... Groß-/Kleinschreibung war das Problem...


P.S.: Signatur ist geändert...

[Stephan]

installierten Macros genauso wie eine Extension auch wieder entfernen??

ja.

Ggf. sind dazu admistrative Rechte nötig, jedoch regelt sich das dadurch in welchem Kontext (Admistrator oder Benutzer) eine Extension vorher installiert wurde.

Wäre ggf. wichtig, da ich teilweise an den Macros noch was ändere (Lernphase!).

Es ist auch möglich, ohne eine Extension zu entfernen, sie mit einer aktualisierten Version der quasi gleichen Extension zu überschreiben und dadurch die enthaltenen Makros zu aktualisieren. Beachte im Zweifel immer das nach solchen Aktualisierungen ggf. ein neustart von OOo nötig ist (vielfach ist er das nicht, aber immer ist ein Neustart im Zweifel das sicherste Mittel wenn man sich mit DEtails nicht auskennt)



Gruß
Stephan

[theindless]

Hallo Stephan,

danke für die Information.

[Thema erledigt, thread closed]