Форумы GIS-Lab.info

Код: Выделить всё

Define INVALID_HANDLE_VALUE -1
Define MAX_PATH 260

Type FILETIME
    dwLowDateTime As Integer
    dwHighDateTime As Integer
End Type

Type WIN32_FIND_DATA
	dwFileAttributes As Integer
	ftCreationTime As FILETIME
	ftLastAccessTime As FILETIME
	ftLastWriteTime As FILETIME
	nFileSizeHigh As Integer
	nFileSizeLow As Integer
	dwReserved0 As Integer
	dwReserved1 As Integer
	cFileName As String*MAX_PATH
	cAlternateFileName As String*14
End Type

Function GetListFolders(ByVal dir As String, ByVal mask As String,
		FileArray() As String) As Integer
	Dim count As Integer
	Dim fstruct As WIN32_FIND_DATA
	Dim res As Integer
	Dim dw, fhandle As Integer
	Dim fn As String


	GetListFolders = 0

	If dir = "" Then
		Exit Function
	End If
	If Not FileExists(Left$(dir, Len(dir) - 1)) Then
		Exit Function
	End If
	fstruct.dwFileAttributes = &H00000010
	fhandle = FindFirstFile(dir + mask, fstruct)
	If fhandle = INVALID_HANDLE_VALUE Then
		Exit Function
	End If
	fn = LTrim$(RTrim$(fstruct.cFileName))
	dw = GetFileAttributes(dir + fstruct.cFileName)
	If (dw\&H00000010) mod &H00000010 = 1 And fn <> "." And fn <> ".." Then
		Redim FileArray(1)
		FileArray(1) = fn
		count = 1
	End If

	While FindNextFile(fhandle, fstruct)
		fn = LTrim$(RTrim$(fstruct.cFileName))
		dw = GetFileAttributes(dir + fn)
		If (dw\&H00000010) mod &H00000010 = 1 And fn <> "." And fn <> ".." Then
			count = count + 1
			Redim FileArray(count)
			FileArray(count) = fn
		End If
	Wend
	res = FindClose(fhandle)
	GetListFolders = count
End Function

Код: Выделить всё

dim flist() as string
dim fcount as integer

sub ffind(byval adir as string, byval fname as string)
  dim dlist() as string
  dim i, c as integer
  if fileexists(adir+fname) then
    fcount = fcount +1
    redim flist(fcount)
    flist(fcount) = adir + fname
  end if
  c = GetListFolders(adir, "*.*", dlist)
  for i = 1 to c
    call ffind(adir + dlist(i) + "\", fname)
  next
end sub