Dec 222017
 
Visual Basic add-on library. DLL format.
File VBADD102.ZIP from The Programmer’s Corner in
Category BASIC Language
Visual Basic add-on library. DLL format.
File Name File Size Zip Size Zip Type
DISKSUPP.BAS 6751 2394 deflated
HUGESUPP.BAS 1700 857 deflated
TPCREAD.ME 199 165 deflated
VBADDONS.DLL 14432 7650 deflated
VBADDONS.HLP 29355 10837 deflated
VBADDONS.TXT 2214 629 deflated
VBADDONS.WRI 2816 1317 deflated
WHATSNEW.WRI 1280 467 deflated

Download File VBADD102.ZIP Here

Contents of the VBADDONS.TXT file


'
' 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



 December 22, 2017  Add comments

Leave a Reply