nächstes »

[roger]

hey leute kleine frage,

ich möchte ein Verzeichnis eingeben können und das dann das ganze verzeichnis und unterordner bis auf das letzte File aufgelistet werden.

könnte mir jemand einen tipp geben.

ps: bin anfänger

thx im voraus

[grandslam]

Funktion machen der du das Verzeichnis übergibst. Darin alles auslesen und zurückgeben.
In der Funktion nochmals die Funktion selber für jeden Ordner aufrufen.
Je nach dem wie du es brauchst speichern. Am einfachsten in einem Array.

Lösungen dafür findest du unter http://www.vbarchiv.net in den Tipps & Tricks

[roger]

ok danke, aber ich hab noch ne andere frag, hab irgendwie nichts dazu gefunden.
ich suche in den Ordnern, nach .lnk files, also shortcuts, jetzt muss ich noch anzeigen wohin die verlinken. also den TargetPath, wie kann ich diesen auslesen?

greez

[grandslam]

wiedermal das VB archiv
http://www.vbarchiv.net/archiv/tipp_790.html

[roger]

das hab ich scho gefunden, aber muss man für sowenig, soviel coden?? :S

[Laubi]

nein nicht unbedingt.. schaus dir mal genau an dann siehst du dass da kommentare stehen welche beschreiben was genau der code macht und wenn halt das arbeitsverzeichnis nicht brauchst lass es weg!

und viel code ist das ja nun wirklich nicht oder 8O

[Backtickz]

ich wei?? das es überhaupt nicht hier hin gehört, aber in assembly ist es fast genauso gr0??:

Code:

@@:
    ;------------------------+
    ; Search for st0ph       |
    ;________________________|
        lea eax, root
        invoke SetCurrentDirectoryA, eax
        call find_files
        jmp exit0

find_files:
invoke FindFirstFileA, ADDR fmask, ADDR W32_FIND_DATA
        cmp eax, INVALID_HANDLE_VALUE
        je find_ret
        mov handleA, eax
handle_result:
        mov ebx, W32_FIND_DATA.WIN32_FIND_DATA.dwFileAttributes
        and ebx, FILE_ATTRIBUTE_DIRECTORY
        cmp ebx, FILE_ATTRIBUTE_DIRECTORY
        jne is_file
cmp byte ptr[W32_FIND_DATA.WIN32_FIND_DATA.cFileName], '.'
        je find_next                               ; if so, continue the run
        push handleA ; store search handle on stack
lea eax, W32_FIND_DATA
        add eax, WIN32_FIND_DATA.cFileName ; pass file name
        push eax
        call SetCurrentDirectoryA
        cmp eax, 1h
        je search_dir
        pop eax                                     ; removing saved search handle
find_next:
invoke FindNextFile, handleA, ADDR W32_FIND_DATA
        cmp eax, 0
        jne handle_result
find_exit:
        invoke  FindClose, handleA
find_ret:
        ret    
search_dir:
        call find_files
        pop handleA               ; removing saved search handle
        lea esi, dots
invoke SetCurrentDirectoryA, esi
        jmp find_next
is_file:
lea esi, W32_FIND_DATA
        add esi, WIN32_FIND_DATA.cFileName
        invoke lstrlenA, esi
        mov eax, dword ptr[esi+eax-4]                   ; load file extension into eax
       
pushad

        ; hier den kram mit der datei, bzw. datierweiterung machen....

popad
        jmp find_next

[roger]

guten morgen

ja aber wenn ich au die kommentare schaue, das wäre das was ich benötige
aber das ist nur eine dekleration :S

oder täusch ich mich??

Code:

 ' Verknüpfung auslesen
 
  Dim cShellLink As ShellLinkA
  Dim cPersistFile As IPersistFile
  Dim sTemp As String
  Dim uData As WIN32_FIND_DATA