TheGameCreators - CodeBase - Listing files and folders

Return to the CodeBase listing

Category: File

Version: 1.0

Information

Uploaded: 5th Dec 2003 20:39

Modified: 7th Dec 2003 15:12

Author: IanM

Summary

Get a list of files or folders

Full Description

Allows you to get a list of the files and folders in the current directory. Included features: Search all folders within the specified folder, or not Extract all folder names into the list, or not Extract all file names into the list, or not Ready to 'include' correctly, despite the arrays it uses :)

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

ScanDirectory("C:\\Program Files\\Dark Basic Software\\Dark Basic Professional\\Tools", SCAN_STANDARD)

for i=0 to array count( FileList() )

print FileList(i).RelativeName; " - "; FileList(i).Size; " - "; FileList(i).Date

next i

wait key

end

`------------------LIBRARY STARTS HERE ----------------------

` These constants are used to make up the 'mode' of the ScanDirectory function.

` Just add together the bits that you want to switch off ... for example to stop

` searching folders with the named folder, and to not list any files you would use

`  SCAN_NORECURSE + SCAN_NOFILES.

#constant SCAN_STANDARD          0

#constant SCAN_NORECURSE         1

#constant SCAN_NOFILES           2

#constant SCAN_NODIRS            4

#constant SCAN_NOSLASH           8

#constant SCAN_NOSIZE            16

type FileInfo_t

Name as string

RelativeName as string

IsFolder as integer

Date as string

Size as dword

endtype

global dim FileList() as FileInfo_t

function ScanDirectory(SourceDir as string, Mode as dword)

local CurrentDir as string

undim FileList()

global dim FileList() as FileInfo_t

empty array FileList()

if SourceDir = "" then SourceDir = "."

if path exist( SourceDir )

CurrentDir = get dir$()

set dir SourceDir

ScanDirectoryRecurse( get dir$(), "", Mode )

set dir CurrentDir

endif

endfunction

function ScanDirectoryRecurse( CurrentPath as string, RelativePath as string, Mode as dword )

local CurrentFile as FileInfo_t

local dim Folders() as FileInfo_t

empty array Folders()

set dir CurrentPath

find first

while get file type() >= 0

CurrentFile.Name           = get file name$()

CurrentFile.RelativeName   = RelativePath + CurrentFile.Name

CurrentFile.IsFolder       = get file type()

CurrentFile.Date           = get file date$()

if (Mode && SCAN_NOSIZE) = 0

CurrentFile.Size = file size( CurrentFile.Name )

else

CurrentFile.Size = 0

endif

if CurrentFile.IsFolder = 1

if CurrentFile.Name <> "." then if CurrentFile.Name <> ".."

array insert at bottom Folders()

Folders() = CurrentFile

endif

else

if (Mode && SCAN_NOFILES) = 0

array insert at bottom FileList()

FileList() = CurrentFile

if (Mode && SCAN_NOSIZE) = 0 then FileList().Size = file size( FileList().Name )

endif

find next

endwhile

array index to top Folders()

while array index valid( Folders() )

if (Mode && SCAN_NODIRS) = 0

array insert at bottom FileList()

FileList() = Folders()

if (Mode && SCAN_NOSLASH) = 0 then FileList().RelativeName = FileList().RelativeName + "\\"

endif

if (Mode && SCAN_NORECURSE) = 0

ScanDirectoryRecurse( CurrentPath + "\\" + Folders().Name, Folders().RelativeName + "\\" , Mode )

Author Name:	IanM
CodeBase Entries:	26

CodeBase - Listing files and folders

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments