| |
| |
|
Peter
Mallow | cet Prozedure cherchez pour einer Suchmaske dans une beliebigen Dossier. Unterordner volonté Dabei einbezogen.
trop diesem Zweck gibt es zwar déjà den Befehl AddFiles, cependant ist folgende variante quelque chose variabler et arbeitet aussi chez tiefen Verschaltelungen. malheureusement ist qui Prozedure quelque chose lente dans reinen Profan, mais peut-être peux vous oui quelqu'un dans Assembler écrivons ou bien améliorer. Schneller arbeitet qui Prozedure, si le Listbox versteckt wird (HideWindow()).
KompilierenMarqueSéparationDeclare Listbox%
Proc ListFolder
Parameters LBox%,Dir$,Filter$,Level%
Declare String$,File$,c%,g%
Level 0 = Nur den Hauptordner durchsuchen (Unterordner werden gelistet)
Level 1 = Nur den Hauptordner durchsuchen (Unterordner werden nicht gelistet)
Level 2 = Alles durchsuchen, samt Unterordner
Beispiel: Print @ListFolder(Listbox%,"C:Programme","*.exe|*.bat",2)
Proc Einlesen
Parameters Dir$
Declare i%,j%,len%
ChDir Dir$
File$ = @FindFirst$("*")
i% = 0
While File$ <> ""
len% = @Len(File$)
If (File$ <> "[.]") And (File$ <> "[..]")
If (@InStr("[",File$) = 1) And (@InStr("]",File$) = len%)
String$ = @Translate$(File$,"[","")
String$ = @Translate$(String$,"]","")
Inc i%
@AddString(LBox%,Dir$+""+String$)
Else
j% = 1
While @SubStr$(Filter$,j%,"|") <> ""
If @InStr(@SubStr$(Filter$,j%,"|"),File$) = (len% - @Len(@SubStr$(Filter$,j%,"|"))+1)
Inc i%
@AddString(LBox%,Dir$+""+File$)
break
EndIf
Inc j%
WEnd
EndIf
EndIf
File$ = @FindNext$()
WEnd
g% = g%+i%
EndProc
Filter$ = @Translate$(Filter$,"*","")
Einlesen Dir$
If Level%
While c% < g%
String$ = @GetString$(LBox%,c%)
If @TestBit(@GetFAttr(String$),4) Ordner finden
@DeleteString(LBox%,c%)
Dec g%
Case Level% = 2: Einlesen String$ Ordner einlesen
Else
Inc c%
EndIf
WEnd
EndIf
Return g%
EndProc
Cls
UseFont "MS Sans Serif",15,6,0,0,0
SetDialogFont 1
Listbox% = @Create("ListBox",%HWnd,"",0,50,@Width(%HWnd)-5,@Height(%HWnd)-55)
Print @Str$(@ListFolder(Listbox%,"C:Programme","*.exe|*.bat",2))+" Dateien gelistet"
WaitInput
Fin
|
|
| |
| WinXP Pro SP2, XProfan 9 + XPSE
AMD Athlon 64 X2 3800 | 04.12.2005 ▲ |
|
| |
|
|
Don
Bubu | tja,kollege
là muss je toi malheureusement entäuschen
quelque chose comme hab je aussi Schonmal dans profan 5.0 geschrieben.
funtzt à sich aussi pas mal seulement ...
qui abfrage avec dem [ peux du le crochet.
après que je grössere ordner dursucht hatte , wunderte je mich toujours wieder sur den unterschied pourquoi windows plus datein et ordner trouvé hatte comme mon prg.pour längeren tests et mach et tu hab ego ensuite trouvé.
es donnais dateien qui également cet klammer [ benutzten et somit ensuite comme ordner angesehn wurden.
alors wird cela so nix ^ ^
würd là wohl plutôt sur qui winapi ausweichen . |
|
| |
| |
| |
|
|
 | cela cela [-marque aussi dans Fichiers vorkommen peux J'ai eu Roland déjà geschrieben - weshalb je cela [-marque pour Ordnerattribut aussi völlig fehl am place finde.
Peter devrait sa [-Abfrage avec DirExists erweitern.
Salve. |
|
| |
| |
| |
|
|
Michael
Dell | | peut-être wäre un AddFolders pour qui prochain Xprofan Version angebracht? |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 12.09.2006 ▲ |
|
| |
|
|
| oui cela qui marque [|] malheureusement aussi dans Namen vorkommen könnten merkte je aussi déjà à. je peux oui près de qui Wildcards.Dll vite ne Addfiles.Dll construire.  |
|
| |
| |
| |
|
|
 | |
| |
| |
| |
|
|
RGH | [quote-part:dabfe1781c=iF]cela cela [-marque aussi dans Fichiers vorkommen peux J'ai eu Roland déjà geschrieben - weshalb je cela [-marque pour Ordnerattribut aussi völlig fehl am place finde.
Peter devrait sa [-Abfrage avec DirExists erweitern.[/quote-part:dabfe1781c]
c'est oui aussi einer qui Hauptgründe, pourquoi je DirExists() incorporé habe. qui Einklammerung de Verzerichnisnamen dans eckigen Klammern était sous Windows 3.x vom System her vorgegeben. (Alle Win 3.1-Dossier-Auswahldialoge zeigten demzufolge qui eckigen Klammern.) autrefois durfte cet marque naturellement pas dans den 8.3-Dateinamen vorkommen. Aus Kompatibilitätsgründen wurde cela ensuite aussi chez 32-Bit-Versionen de XProfan beibehalten. alors si un nom de [ et ] eingeschlossen ist, sollte on sicherheitshalber überprüfen, si es un Verzeichnis ou non.
Salut
Roland |
|
| |
| Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 12.09.2006 ▲ |
|
| |
|
|
Jörg
Sellmeyer | [quote-part:97eb00a4a9=Michael Dell]peut-être wäre un AddFolders pour qui prochain Xprofan Version angebracht?[/quote-part:97eb00a4a9]
Quelque chose comme habe je mir déjà depuis mindestens 2-3 Jahren gewünscht!!
(malheureusement cet la fois pas daran gedacht es sur qui Wunschliste trop écrivons) |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 12.09.2006 ▲ |
|
| |
|
|
| [quote-part:e37e54c635=Jörg Sellmeyer][quote-part:e37e54c635=Michael Dell]peut-être wäre un AddFolders pour qui prochain Xprofan Version angebracht?[/quote-part:e37e54c635]
Quelque chose comme habe je mir déjà depuis mindestens 2-3 Jahren gewünscht!!
(malheureusement cet la fois pas daran gedacht es sur qui Wunschliste trop écrivons)[/quote-part:e37e54c635]
exposition la fois hab grad ne Addfiles.Dll [...]  posté qui hat cet Funktion intus.  |
|
| |
| |
| |
|
(856)
Deutsch
English
Français
Español
Italia