format PE GUI 4.0
entry BeginCode

include '%finc%\win32a.inc'

section '.code' executable readable writeable

BeginCode:
        invoke FindFirstFileA,filemask,wfd
        mov [search_handle],eax
@@:
        invoke CreateFileA,wfd.cFileName,(GENERIC_READ+GENERIC_WRITE),0,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0
        mov [file_handle],eax
        jmp FoundOne
FindNext:
        invoke FindNextFileA,[search_handle],wfd
        cmp eax,0
        je AllDone
        jmp @B

AllDone:
        ret
FoundOne:
        invoke MessageBox,0,wfd.cFileName,NULL,0
        jmp FindNext

section '.data' data readable writeable

wfd             FINDDATA
filemask        db      'C:\WINDOWS\*.bmp',0 
search_handle   dd      ?
file_handle     dd      ?


section '.idata' import data readable writeable

  library kernel32,'KERNEL32.DLL',\
          user,'USER32.DLL'

  import kernel32,\
         FindFirstFileA,'FindFirstFileA',\
         FindNextFileA,'FindNextFileA',\
         CreateFileA,'CreateFileA'

  import user,\
         MessageBox,'MessageBoxA'
    

Ok.. search the entire harddrive...
I would apreciate any help and/or code
Thanks alot

   {----- CONTROL Parameter 1 : File exists ?  }
   GI_FilePath1 := ParamStr(1);
   IF GI_FilePath1 <> ''
   THEN BEGIN
      {----- Disk files access }
      FindFirst ( GI_FilePath1 , AnyFile , G_SearchRec );
      G_FileExistsQ := ( DosError = 0 );

      {----- File found ?  }
      IF G_FileExistsQ = False THEN BEGIN
         WriteLn (   'ERROR: '  ,  'FilePath1 not found  ( Parameter 1 ).'   );
         HALT ( 1 );
      END;
   END
   ELSE BEGIN
      WriteLn (   'ERROR: '  ,  'FilePath1 expected  ( Parameter 1 ).'   );
      HALT ( 1 );
   END;
    

It is 1017 bytes in size, and sports many of the important command-line options:

-C columnar output; default if stdout is a tty
-1 one file per output line; default if stdout is not a tty
-l "long" output
-F show file type suffixes
-i show inode numbers
-s show size of files in 1K-blocks
-d don't expand directories
-a show all (hidden) files
-B don't show files ending in ~ (backups)
-N don't replace non-graphic characters with a question mark
-b show non-graphic characters as octal escape sequences
-R recursively list contents of subdirectories

(I'm especially proud of getting that last feature to work.)

The "long" output format only displays numeric user IDs, and it displays timestamps as an age, instead of the actual timestamp. There is no sorting capability, and the columnar output is much less intelligent than GNU's (though it looks pretty good most of the time). Beyond that, however, it conforms pretty closely to the standard ls program we all know and love.

format PE GUI 4.0
entry start

include '%finc%\win32a.inc'

section '.data' data readable writeable
drive         db '?:\',0 ;drive name "template"
letter        dd  ?      ;to hold the current drive letter

;========= DRIVE TYPES ==========;
UNKNOWN = 0           ; the drive type is unknown
DOES_NOT_EXIST = 1    ; the drive does not exist
DRIVE_REMOVABLE = 2   ; floppy
DRIVE_FIXED = 3       ; harddrives
DRIVE_REMOTE = 4      ; USB?
DRIVE_CDROM = 5       ; cdrom units
DRIVE_RAMDISK = 6     ; ramdisks

section '.code' code readable executable
start:

        mov [letter],'A'
theLoop:                  ;loop through letters
        mov ecx, [letter]
        mov [drive], cl   ;add current letter to drive name (example: 'A:\')
        call get          ;get info for current drive letter
        inc [letter]      ;next letter
        cmp [letter],'Z'  ;compare the current letter to 'Z'...
        jg  exit          ;... and jump if current letter is greater than 'Z'

        jmp theLoop       ;from the top 
exit:
        invoke ExitProcess,0
        ret
get:
        invoke GetDriveType,drive
        cmp eax, DRIVE_FIXED      ;compare
        jz foundONE               ;jump if the result from GetDriveType equals DRIVE_FIXED
ret

foundONE:
        invoke MessageBox,0,drive,0,0 ;display drive name
        ret
section '.idata' import data readable writeable
  library kernel32,'KERNEL32.DLL',user32,'USER32.DLL'
  include '%finc%\apia\kernel32.inc'
  include '%finc%\apia\user32.inc'

    

... ...
Ive written a program that probes for all drive letters
... ...

format PE GUI 4.0
entry start 

include 'MyPathTo \Fasm167\FasmW\INCLUDE\win32a.inc'

section '.data' data readable writeable 
drive         db '?:\',0 ;drive name "template" 
letter        dd  ?      ;to hold the current drive letter 

;========= DRIVE TYPES ==========; 
UNKNOWN = 0           ; the drive type is unknown 
DOES_NOT_EXIST = 1    ; the drive does not exist 
DRIVE_REMOVABLE = 2   ; floppy 
DRIVE_FIXED = 3       ; harddrives 
DRIVE_REMOTE = 4      ; USB? 
DRIVE_CDROM = 5       ; cdrom units 
DRIVE_RAMDISK = 6     ; ramdisks 

section '.code' code readable executable 
start: 

        mov [letter],'A' 
theLoop:                  ;loop through letters 
        mov ecx, [letter] 
        mov [drive], cl   ;add current letter to drive name (example: 'A:\') 
        call get          ;get info for current drive letter 
        inc [letter]      ;next letter 
        cmp [letter],'Z'  ;compare the current letter to 'Z'... 
        jg  exit          ;... and jump if current letter is greater than 'Z' 

        jmp theLoop       ;from the top  
exit: 
        invoke ExitProcess,0 
        ret 
get: 
        invoke GetDriveType,drive 
        cmp eax, DRIVE_FIXED      ;compare 
        jz foundONE               ;jump if the result from GetDriveType equals DRIVE_FIXED 
        cmp eax, DRIVE_CDROM      ; A D D E D
        jz foundONE               ; A D D E D
        cmp eax, DRIVE_REMOVABLE  ; A D D E D
        jz foundONE               ; A D D E D
ret

foundONE: 
        invoke MessageBox,0,drive,0,0 ;display drive name 
        ret 
section '.idata' import data readable writeable 
  library kernel32,'KERNEL32.DLL',user32,'USER32.DLL' 
  include 'MyPathTo \Fasm167\FasmW\api\kernel32.inc'
  include 'MyPathTo \Fasm167\FasmW\INCLUDE\api\user32.inc'
    

I'm sorry but all my drives letters are not displayed, so I've added some lines, and now all my drives letters are displayed, even USB "flash drives"

Ive written a program that probes for all drive letters and displays the ones that are fixed(harddrives).

@Both, look at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/getlogicaldrives.asp , possible this function can make the program faster (a speedup probably unneded of course...)

[EDIT] Made a little mistake...I use "GetLogicalDriveStrings" http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/fs/getlogicaldrivestrings.asp

drive db "A"-1,":\",0
.
.
.
  invoke GetLogicalDrives
  mov    esi, eax

.loop:
  inc    byte[drive]
  shr   esi, 1
  jnc   .loop
  jz    .exit

  invoke GetDriveType, drive
  cmp eax, DRIVE_FIXED
  jnz .loop

; **** Here process the fixed drive

  jmp .loop    

DodajPlikiDoProjektu proc
  LOCAL szukaj:HANDLE

  invoke PathAppend,addr bufor,addr gwiazdka
  invoke FindFirstFile,addr bufor,addr dane_pliku
  .IF eax==INVALID_HANDLE_VALUE
    ShowLastError
    ret
  .ELSE
    mov szukaj,eax
  .ENDIF

szukej:
  mov eax,dane_pliku.dwFileAttributes
  and eax,FILE_ATTRIBUTE_DIRECTORY
  jz kuper
  mov eax,offset dane_pliku.cFileName
  cmp BYTE PTR [eax],'.'
  jnz fglak
  cmp BYTE PTR [eax+1],0
  jz nicnierobJ
  cmp BYTE PTR [eax+1],'.'
  jnz fglak
  cmp BYTE PTR [eax+2],0
  jz nicnierobJ
fglak:
  invoke PathRemoveFileSpec,addr bufor
  invoke PathAppend,addr bufor,addr dane_pliku.cFileName
  call DodajPlikiDoProjektu
  invoke PathRemoveFileSpec,addr bufor
  invoke PathRemoveFileSpec,addr bufor
  invoke PathAppend,addr bufor,addr gwiazdka
nicnierobJ:
  jmp nicnierob
kuper:
  invoke lstrcpy,addr BuforNaText,addr bufor
  invoke PathRemoveFileSpec,addr BuforNaText
  invoke PathAppend,addr BuforNaText,addr dane_pliku.cFileName
  
  mov tvitem.imask,TVIF_PARAM
  m2m tvitem.hItem,aktualnyDokumentProjektu
  mSend hPanelProjektyDrzewo,TVM_GETITEM,0,addr tvitem
  mov eax,tvitem.lParam
  cmp (PROJEKT ptr [eax]).ileDokumentow,-1
  jz nicnierob
  invoke DodajDokumentP,addr BuforNaText
nicnierob:
  invoke FindNextFile,szukaj,addr dane_pliku
  or eax,eax
  jnz szukej


  invoke FindClose,szukaj

  ret
DodajPlikiDoProjektu endp
    

shr esi, 1
jnc .loop
jz .exit