'
' Declares for Huge Array Support
'
Declare Function HugeCurrency Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Currency
Declare Function HugeDim Lib "vbaddons.dll" (ByVal recsize%, ByVal limit&) As Integer
Declare Function HugeDouble Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Double
Declare Function HugeErase Lib "vbaddons.dll" (ByVal hArray%) As Integer
Declare Function HugeGetElement Lib "vbaddons.dll" (ByVal Index%, ByVal el&, buffer As Any) As Integer
Declare Function HugeInt Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Integer
Declare Function HugeLong Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Long
Declare Function HugeNumArrays Lib "vbaddons.dll" () As Integer
Declare Function HugeRedim Lib "vbaddons.dll" (ByVal hArray%, ByVal limit&) As Integer
Declare Function HugeSetElement Lib "vbaddons.dll" (ByVal Index%, ByVal el&, buffer As Any) As Integer
Declare Function HugeSingle Lib "vbaddons.dll" (ByVal hArray%, ByVal el&) As Single
Declare Function HugeUbound Lib "vbaddons.dll" (ByVal hArray%) As Long
'
' Data type for DiskGetFirstFile & DiskGetNextFile
'
Type FindDataType
reserved As String * 21
FileAttr As String * 1
FileTime As Integer
FileDate As Integer
FileSize As Long
FileName As String * 13
End Type
'
' Bitmasks for FileAttr field of FindDataType
'
Global Const FILE_NORMAL = 0 ' Normal file - No read/write restrictions
Global Const FILE_RDONLY = 1 ' Read only file
Global Const FILE_HIDDEN = 2 ' Hidden file
Global Const FILE_SYSTEM = 4 ' System file
Global Const FILE_VOLID = 8 ' Volume ID file
Global Const FILE_SUBDIR = 16 ' Subdirectory
Global Const FILE_ARCH = 32 ' Archive flag
Global Const FILE_ALLFILES = 63 ' All files


Declare Function DiskGetFirstFile Lib "vbaddons.dll" (ByVal StartString As String, ByVal AttrFlags As Integer, FindData As FindDataType) As Integer
Declare Function DiskGetFreeSpace Lib "vbaddons.dll" (ByVal DriveLetter As String) As Long
Declare Function DiskGetNextFile Lib "vbaddons.dll" (FindData As FindDataType) As Integer
Declare Function DiskSetLabel Lib "vbaddons.dll" (ByVal DriveLetter As String, ByVal NewLabel As String) As Integer