| |
| |
|
| - Page 1 - |
|
Nico
Madysa |
$H windows.ph
$H Messages.ph
$I controls.prf
3 + 4 + 8
proc Add_Dir
parameters way$ , wrestling% , p&
declare i%[14] , nextdir$
if (wrestling% < 0)
p& = TV_AddItem(tv&,0,2,2,drive + way$ + \,i#[t%])
inc wrestling%
inc t%
endif
ClearList
ClearList lb&[wrestling%]
AddFiles way$ + \*
whileloop 0 , %GetCount
Match $(^~[.+~]$,ListBoxItem$(&loop))
if %MatchPos >= 0
AddStrings(lb&[wrestling%],$Match)
endif
EndWhile
DeleteString(lb&[wrestling%],Select String(lb&[wrestling%],(-1),[.]))
DeleteString(lb&[wrestling%],Select String(lb&[wrestling%],(-1),[..]))
ClearList
MoveHandleToList(lb&[wrestling%])
clear i%[wrestling%]
while i%[wrestling%] < (GetCount(lb&[wrestling%]))
nextdir$ = GetString$(lb&[wrestling%],i%[wrestling%])
nextdir$ = Mid$(nextdir$,2,len(nextdir$) - 2)
TV_AddItem(tv&,p&,0,1,nextdir$,i#[t%])
inc t%
if wrestling% < 14
Add_Dir (way$ + \ + nextdir$) , (wrestling% + 1) , i#[t% - 1].hItem&
endif
i%[wrestling%] = i%[wrestling%] + 1
wend
endproc
proc terminate
FreeDLL shl&
il#.Destroy()
Dispose il#
Dispose i#[]
end
endproc
declare il# , tv& , tx& , shl& , i#[1999] , lb&[14] , t%
Dim i#[] , TV_Item
shl& = UseDll(SHELL32)
cls SysColor(15)
Window Title Please Waiting, create Verzeichnisbaum...
whileloop 15
lb&[&loop - 1] = Create(ListBox,%hWnd,1,0,0,0,0)
EndWhile
il# = New(ImageList)
il#.AddImage($SysPath + \Shell32.dll,3)
il#.AddImage($SysPath + \Shell32.dll,4)
il#.AddImage($SysPath + \Shell32.dll,8)
tv& = Create(Treeview,%hWnd,il#.hList&,5,5,200,400)
Add_Dir C: , (-1) , 0 <-- here whom Laufwerksbuchstaben/Anfangspfad prompt; on the end must no Backslash stand
TV_Expand tv& , i#[0].hItem&
SetText %hWnd , st$(t%) + Entries in the Treeview
whilenot IsKey(27)
waitinput
wend
terminate
end
of these code becomes one Treeview created and through Rekursion (be I proud, I the hinbekommen have!  ) with all Verzeichnissen a drive filled. unfortunately is the very umständlich and lasts quite long. therefore have I two ask:
1.) How many Entries contains the Treeview with you maximum? (standing to the loading in the Titelleiste) me goes it therefore, to know, whether The Handles wealthy.
2.) gives not irgendeinen einfacheren lane? in the Win32.hlp have I nothing found and Assembler know I sonderlich from. might to the so speed? |
 |
| |
| |
| |
|
| |
| |
| - Page 2 - |
|
|
 | @Carlo
[offtopic] On my P:-drive ... how much drives have You ? - 16 and More ? - then could You for me time a Test manage. - I come with my Laufwerken only To I: - Should but my Dateiverwaltung with More How 12 Laufwerken testing around the statement To to check on - all right with a Test ? [/offtopic] |
|
| |
| |
| |
|
|
Thomas
Freier | Hello Frank,
on the PC (with SP2) runs too by me everything correct.
on the Laptop (with SP1) works only The Treeview not. Explorer-demonstration with List view is OK. having first The ext. USB-disk in suspicion, changed not to the Remove and Neustart. |
|
| |
| Gruß Thomas
Windows XP SP2, XProfan X2 | 04/26/07 ▲ |
|
| |
|
|
Carlo
Keil | Horst horn
@Carlo [offtopic] Horst hornOn my P:-drive ... how much drives have You ? - 16 and More ? [/offtopic]
unfortunately No, but I stamme yet from DOS-times
and there there were whom lovely commands subst. so can itself lovely drives make, because so one way one Laufwerksbuchstabe allocated becomes. this is very useful, if one z.B. on two PCs with unterschiedlichen Verzeichnisstrukturen (privater and dienstlicher PC) with Profan operates and not dauernd way- or Laufwerksbezeichnungen adjust wants.
Thanks the Großzügigkeit of Bill (or has there someone slept?) there whom commands XP still 
HTH
Carlo |
|
| |
| |
| |
|
|
| [offtopic]
Hello Carlo
Schade - Since I a NC-Clone written have and the too use, had me already interested, as Programmschleife ex the 14 drive operates. About each the two Window can in the first row 13 drives recognized and viewed go (so How in the Image) ex the 14. drive should now a Etage deeper again in front began go. Additional must narürlich the two Window then too small in the Höhe his. I Have the already with the input 6 drives simulate and it shone too To klappen. rather would me but already one realer Test [/offtopic] |
|
| |
| |
| |
|
|
GDL |
|
| |
| |
| |
|
|
 | Leg simply drives on Horst!
Start → Perform → %comspec% [enter] subst /? [enter] |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Hello Horst,
You can the Yes yourself with discretionary many Laufwerken arrange.
simply under Start -> Perform so often Subst M: C:windows prompt To You either sufficient have or the Limit of 26 access is. naturally must the Laufwerksbuchstabe always another and a free drive his. You can also others Ordner as virtuelles drive take but the must not his.
OK, iF was faster  |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 04/26/07 ▲ |
|
| |
|
|
| @ iF + Jörg
OK - and How I get The drives again lane ?  |
|
| |
| |
| |
|
|
Jörg
Sellmeyer | Subst /D M:
After one Neustart are but anyhow any again lane. |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 04/26/07 ▲ |
|
| |
|
|
| thanks 
functions
See Image |
|
| |
| |
| |
|
|
Nico
Madysa | OK, first thanks for many Answer.
whom hint with the loading the Ordner if it necessary is, I will In any drop umsetzen (there me already so many people moreover get having  )
AddFiles.dll and the Message I will me In any drop too standing.
The Error the element there not. is simply To explain: The code filling The element-Handles the Treeviews into aray, that I temporary on 2000 Handles terminable have, but this is Yes yet erweiterbar. The second Error is me not erklärbar; by the intercepting of wrestling% ought to The maximum Recursion really not overstepped go. But if I The Ordner first to Laufzeit load, had itself the trouble anyhow Done.
@Frank: How do I get on the lever the system-Imagelist? without the komm I sooner badly on The list heran. |
|
| |
| |
| |
|
|
| so How I the at Überfliegen seen have could wrestling% not always whom desired object erfüllen. rather with such Rekursionsgeschichten could the following his:
CompileMarkSeparation |
|
| |
|
(938)
Deutsch
English
Français
Español
Italia
![04/27/07 ▲Vollständiges QuoteAbsatzweise QuoteZeilenweise Quote](./../../function-references/xprofan/endpr</pre>ndproc</a>
</pre></div><br clear="all">so can You z.B. ensuring the a Rekursion not overstepped becomes.<br clear="all"><br clear="all">disadvantage: a Globale.<br clear="all"><br clear="all">Selbiges behaviour without Globale can itself however too dank <a class=nav href="./../../function-references/xprofan/pcount/">%pcount <img src=".././../../i/lnk.gif" border=0/></a> nachstellen.</td></tr></table></td></tr><tr><td colspan=2> </td></tr><tr><td></td><td style="text-align:right;color:#888;font-size:80%"><table width=){kind=link}