Atlanta Custom Software Development 

   Search        Code/Page

User Login



Forgot the Password?
» Web Development
» Maintenance
» Data Integration/BI
» Information Management
VB VB (1648) (736)
C# C# (15) (779)
ASP ASP (41)
VC++ VC++ (25)
JScript JScript (5)
» SQL Server (708)
» ORACLE (5)
» MySQL (0)
» DB2 (0)
» C/C++/ASM (11)
» Microcontroller (1)
» Circuit Design (0)
» Networking (5)
» Unix/Linux (1)
» WinNT/2k/2003 (8)
» Flash (0)
» Maya (0)
» 3D max (0)
» Photoshop (0)
» (2)
» PC Interfacing (1)
» Networking (4)
» SQL Server (4)
» VB (23)
» (4)
» VC (3)
» HTML/CSS/JavaScript (10)
» Regular Expr Tester
» Free Tools

(Page 18 of 133) 3985 Result(s) found 


GetDirectories - Returns all the subdirectories of a directory
Total Hit (2445) «Code LangId=1»' Returns a collection holding all the subdirectories in a path ' that match search attributes (optionally it returns the entire path). Function GetDirectories(path As String, Optional Attributes As VbFileAttribute, _ Optional IncludePath As Boolean) As Collection Dim d ....Read More
GetDirectorySize - Evaluate disk space used by files and subdirectories
Total Hit (2305) «Code LangId=1»' Retrieve the number of bytes by all the files in a directory ' (it doesn't account for slack space, that is unused space in disk sectors) ' ' If INCLUDESUBDIRS is true, it recursively parses all subdirectories. ' ' supports only up to 2G directories. Function GetDirectorySi ....Read More
CBitArray - a class for dealing with large arrays of Boolean
Total Hit (1836) «Code LangId=1» ' ------------------------------------------------------------------------ ' The CBITARRAY class ' ' simiulates an array of Boolean values ' saves memory by packing one element in one bit ' ' IMPORTANT: you make make ITEM the default member for this class ' do ....Read More
CombSort - A very efficient algorithm
Total Hit (1750) «Code LangId=1»' Comb Sort an array of any type ' ' CombSort is faster than all but QuickSort and close to it. ' On the other hand, the code is much simpler than QuickSort ' and can be easily customized for any array type ' This routine is based on an article appeared on the Byte ' magazine i ....Read More
Filter - A replacement for VB6's Filter function under VB5
Total Hit (1646) «Code LangId=1»' A replace for the Filter function under VB4 and VB5 ' ' Note that the source array is modified. For this reason ' this is declared as a Sub rather than a Function Sub Filter(arr() As String, ByVal Search As String, Optional ByVal Include As _ Boolean, Optional ByVal Comp ....Read More
FilterDuplicates - Delete duplicate items in an array
Total Hit (1667) «Code LangId=1» ' Filter out duplicate values in an array and compact ' the array by moving items to "fill the gaps". ' Returns the number of duplicate values ' ' it works with arrays of any type, except objects ' ' The array is not REDIMed, but you can do it easily using ' the following co ....Read More
GetArrayInfo - Retreive number of dimensions and the SAFEARRAY memory structure
Total Hit (3010) «Code LangId=1» Type SAFEARRAYBOUND cElements As Long ' # of elements in the array dimension lLbound As Long ' lower bounds of the array dimension End Type Type SAFEARRAY cDims As Integer ' Count of dimensions in this array. fFeatures As Integer ....Read More
TransposeMatrix - Rotate a bi-dimensional array
Total Hit (1777) «Code LangId=1» ' evaluate the transposed matrix ' ' a transposed matrix is the array you get when ' you "rotate" a bi-dimensional array Function TransposeMatrix(arr() As Double) As Double() Dim startRow As Long, startCol As Long Dim endRow As Long, endCol As Long Dim r As Lon ....Read More
HasDuplicateValues - Check if an array has duplicate values
Total Hit (1970) «Code LangId=1»' Returns True if an array contains duplicate values ' it works with arrays of any type Function HasDuplicateValues(arr As Variant) As Boolean Dim col As Collection, index As Long Set col = New Collection ' assume that the array contains duplicates HasDu ....Read More
ListBoxEnsureVisible - Ensure that a ListBox element is visible
Total Hit (1693) «Code LangId=1»' ensure that a listbox item is visible ' if the second argument is omitted, the index of current item is used ' ' NOTE: uses the ListBoxVisibleItems function Sub ListBoxEnsureVisible(lst As ListBox, Optional ByVal itemIndex As Long = -1) Dim visibleCount As Long ....Read More
NdxShellSort -Sort Indexed Arrays using ShellSort
Total Hit (2367) «Code LangId=1»' Indexed ShellSort of an array of any type ' ' Indexed Sorts are sort procedures that sort an index array ' instead of the main array. You can then list the items in ' sorted member by simply scanning the index, as in ' For i = 1 To numEls: Print arr(ndx(i)): Next ' ' NUMEL ....Read More
QuickSort - Sort Arrays using the QuickSort Algorithm
Total Hit (1414) «Code LangId=1»' QuickSort an array of any type ' QuickSort is especially convenient with large arrays (>1,000 ' items) that contains items in random order. Its performance ' quickly degrades if the array is already almost sorted. (There are ' variations of the QuickSort algorithm that work goo ....Read More
RLECompress - Compress a block of memory using RLE algorithm
Total Hit (3041) «Code LangId=1»Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _ Any, source As Any, ByVal Bytes As Long) ' compress a block of memory (a string, an array, a bitmap) ' using the RLE compression algorithm ' ' Returns True if the block has been compressed, ' ....Read More
SemiCRC - A fast CRC-like algorithm
Total Hit (1209) «Code LangId=1» ' Evaluate the 16-bit Checksum of an array of bytes Function SemiCRC(bSource() As Byte) As Long Dim lngCRC As Long Dim lngTemp As Long Dim lngSize As Long Dim I As Long Const divisor As Long = 32768 lngSize = UBound(bSource()) For I = 0 T ....Read More
ShellSort - Sort Arrays using the ShellSort Algorithm
Total Hit (1265) «Code LangId=1» ' ShellSort an array of any type ' ' ShellSort behaves pretty well with arrays of any size, even ' if the array is already "nearly-sorted", even though in ' particular cases BubbleSort or QuickSort can be more efficient. ' ' LASTEL is the index of the last item to be sorted, ....Read More
AddBackslash - Append a backslash to a path if needed
Total Hit (2411) «Code LangId=1»' Append a backslash (or any character) at the end of a path ' if it isn't there already Function AddBackslash(Path As String, Optional Char As String = "\") As String If Right$(Path, 1) <> Char Then AddBackslash = Path & Char Else AddBackslash = Path ....Read More
ChangeFileExtension - Modify the extension in a file name
Total Hit (2070) «Code LangId=1» ' Change the extension of a file name ' if the last argument is True, it adds the extension even if the file doesn't ' have one Function ChangeFileExtension(FileName As String, Extension As String, _ Optional AddIfMissing As Boolean) As String Dim i As Long For ....Read More
CompactPathToWindow - Shorten a path so that it fits a window's width
Total Hit (2681) «Code LangId=1» Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetClientRect Lib "user32" (ByVal hWnd As Long, _ lpRect As RECT) As Lon ....Read More
CompareDirectories - Find different files in two directories
Total Hit (2290) «Code LangId=1» Enum CompareDirectoryEnum cdeSourceDirOnly = -2 ' file is present only in the source directory cdeDestDirOnly = -1 ' file is present only in the dest directory cdeEqual = 0 ' file is present in both directories, ' with s ....Read More
CompareFiles - Check whether two files contain the same data
Total Hit (2377) «Code LangId=1»' compare two files ' return True if they're equal Function CompareFiles(ByVal file1 As String, ByVal file2 As String) As Boolean Dim fnum1 As Integer, isOpen1 As Boolean Dim fnum2 As Integer, isopen2 As Boolean Dim buffer1 As String, buffer2 As String Dim byt ....Read More
ConcatenateFiles - Merge multiple text files in one
Total Hit (2340) «Code LangId=1» ' Concatenate a variable number of text files into a single result file ' ' Params: ' - ResultFile: the complete path of the result file you want to create ' - Separator: a string that is written when a file is added to the result ' file. ' Note: this string can conta ....Read More
DirExists - Check that a directory exists
Total Hit (2535) «Code LangId=1» ' Return True if a directory exists ' (the directory name can also include a trailing backslash) Function DirExists(DirName As String) As Boolean On Error GoTo ErrorHandler ' test the directory attribute DirExists = GetAttr(DirName) And vbDirectory ErrorHandler: ....Read More
EvalFileName - Ensure that the basename of a file or directory is valid
Total Hit (1991) «Code LangId=1»' EvalFileName ensures that the basename of a file or directory ' conforms to the Microsoft file naming guidelines (see MSDN webpage) ' ' naming_a_file.asp ' ' Return value: ' True = Valid basename ....Read More
FileExists - Check that a file exists
Total Hit (3054) «Code LangId=1»' Return True if a file exists Function FileExists(FileName As String) As Boolean On Error GoTo ErrorHandler ' get the attributes and ensure that it isn't a directory FileExists = (GetAttr(FileName) And vbDirectory) = 0 ErrorHandler: ' if an error occurs, this ....Read More
FilesToArray - Read all the files or subdirectories in a directory using API functions
Total Hit (3354) «Code LangId=1» Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _ (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _ (ByVal hFindFile As Long, lpFindFileData As ....Read More
FolderHasSubfolders - Determine whether a directory has one or more subdirectories
Total Hit (2226) «Code LangId=1»Private Const MAX_PATH = 260 Private Type SHFILEINFO hIcon As Long iIcon As Long dwAttributes As Long szDisplayName As String * MAX_PATH szTypeName As String * 80 End Type Private Declare Function SHGetFileInfo Lib "Shell32" Alias "SHGetFileInfoA" _ ....Read More
GetAllExecutableFiles - The list of all executable files in a directory tree
Total Hit (2078) «Code LangId=1»' Returns a collection with the names of all the executable ' files in a directory or a directory tree ' this includes all "exe", "bat", "com", "pif" files ' ' NOTE: Uses the GetFiles, GetDirectories, and GetAllFiles routines Function GetAllExecutableFiles(ByVal path As String ....Read More
GetAllFiles - Search files in a directory or directory tree
Total Hit (4006) «code LangId=1»Private Sub Command1_Click() Dim col As Collection '//Get all files from C:\ (No sub folder) which are older than 5 days and newer than 30 days Set col = GetAllFiles("c:\", "*.*", False, 30, 5) For Each f In col Debug.Print FileDateTime(f) & "=>" & f ....Read More
GetAllPictureFiles - The list of all image files in a directory tree
Total Hit (2491) «Code LangId=1»' Returns a collection with the names of all the image ' files in a directory or a directory tree ' this includes all the image types that can be loaded into a PictureBox control ' ' NOTE: Uses the GetFiles, GetDirectories, and GetAllFiles routines Function GetAllPictureFiles( ....Read More
GetAttrDescr - The attributes of a file in a readable format
Total Hit (1990) «Code LangId=1» ' The attributes of a file in a readable format. ' It works also with open files, raises an error if the file doesn't exist. Function GetAttrDescr(filename As String) As String Dim result As String, attr As Long ' get file attributes as a bit-coded field attr = ....Read More

(Page 18 of 133) 3985 Result(s) found  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 ...

Recommanded Links


Home   |  Comment   |  Contact Us   |  Privacy Policy   |  Terms & Conditions   |  BlogsZappySys

© 2008 BinaryWorld LLC. All rights reserved.