This very simple routine avoid checking if a correct path alreadyexist before using it and, if not, create it exactly as you want.Imagine you wont to write a log file in a path defined as:C:MyapplicServiceslogsLOG.TXTyou must check before if the directory Myapplic exist andthen check all other subdirectory (Service,logs) before opening thefile For Output. Probably you will use… Read More »

Allows you to backup a source file and have the destination file name be the current date. Great for database backups! Original Author: Daniel Bennington Assumptions Create a new form, create a field called text1 and a field called text2. Also create a command button called command1.Change Source directory to your database directory name, change source file name to… Read More »

Class module for resizing/repositioning controls on a form. See source code for details. Original Author: John Buzzurro Inputs see source code Assumptions see source code Returns see source code Code ”””””””””””””””””””””””””””””””””””””””” MODULE DESCRIPTION:’  Class for scaling/repositioning controls on a form” DATE CREATED:’  10-22-1998” AUTHOR:’  John Buzzurro” COPYRIGHT NOTICE:’  Copyright (c) 1998 by John Buzzurro” NOTES:’ A) To give your form resizing ability:”  1) Create… Read More »

This code will open a DAT file in the c:windowshistory folder and pull out all sites visited Original Author: Chris Wells Assumptions For the Index.dat file the displacement is set to 119 for other files I haveset the displacement to 15.For the Index.dat file the delimiter, or search string, is “URL “For other files I have used “Visited: “This… Read More »

Takes a roman number and convert into decimal. Original Author: Francesco Meani Inputs Inputs a roman number. Returns Returns a decimal number. API Declarations Code Option Explicit’Valid roman numerals and their valuesPrivate Const M = 1000Private Const D = 500Private Const C = 100Private Const L = 50Private Const X = 10Private Const V = 5Private Const I =… Read More »

Generic sort class. Works with any in memory structure and will sort in any order. Does this by exposing two simple to code events: isLess and SwapItems. Original Author: Mike Mestemaker API Declarations Code Option Explicit’ QuickSort class” To use this class, you must do a bit of planning: First,’ in a form or other object module (not a… Read More »

This class encapsulate QueryPerfomanceXXXAPI functions to mesure small time intervals. You can use this classto mesure how much time your code take. This function can mesure timeintervals near 0.1 ms , 10 times better then timeGetTime() API orGetTickCount() that have an error of 50ms.Example:Dim m_performance As CPerformanceDim i As integerSet m_performance = new CPerformancem_performance.StartCounter()‘Do somethingFor i = 1… Read More »

The following code will add great text effect to your applications. It changes the spacing between the characters. By changing spaces, the characters move on the screen. Original Author: Waty Thierry Inputs obj As ObjectByVal sText As StringByVal lX As LongByVal lY As LongOptional ByVal bLoop As Boolean = FalseOptional ByVal lStartSpacing As Long = 128Optional ByVal lEndSpacing As… Read More »

When you are creating a sort of Setup program, etc. sometimes you want to replace some system files or delete some other files, however if they are in use by Windows at the time, you can’t. You need to update the files after rebooting, you know that message that says “Please wait while windows updates your configuration files”,… Read More »

Register a system wide hot key Original Author: Andy Barilla API Declarations Const WM_HOTKEY = &H312Const MOD_ALT = &H1Const MOD_CONTROL = &H2Const MOD_SHIFT = &H4Const MOD_WIN = &H8Private Declare Function RegisterHotKey Lib “user32” (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As LongPrivate Declare Function GlobalAddAtom Lib “kernel32” Alias “GlobalAddAtomA” (ByVal… Read More »