MakePath – Create a nested directory
‘ create a nested directory” it’s similar to MkDir, but it also creates’ all intermediary sub-directoriesSub MakePath(ByVal path As String) Dim i As Integer, ercode As Long On Error Resume
‘ create a nested directory” it’s similar to MkDir, but it also creates’ all intermediary sub-directoriesSub MakePath(ByVal path As String) Dim i As Integer, ercode As Long On Error Resume
‘ list all the files in a directory’ if NESTEDDIRS = True it lists a whole directory tree” returns a 1-based array containing all the listed filesFunction ListFiles(ByVal Path As
‘ Returns a collection holding all the filenames that’ match a given filespec and search attributes.Function GetFiles(filespec As String, Optional Attributes As VbFileAttribute) _ As Collection Dim filename As String
‘ Returns a collection with the names of all the files’ that match a file specification” The file specification can include wildcards; multiple’ specifications can be provided, using a semicolon-delimited’
Private Type SHELLEXECUTEINFO cbSize As Long fMask As Long hwnd As Long lpVerb As String lpFile As String lpParameters As String lpDirectory As String nShow As Long hInstApp As Long
Private Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd TypePrivate Declare Function IsWindow Lib “user32” (ByVal hWnd As Long) As LongPrivate Declare Function GetClientRect
‘ 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
Private Type POINTAPI X As Long Y As LongEnd TypePrivate Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd Type’ Region API functinsPrivate Declare Function
The name of an ordinary function is implicitly converted to its memory address. For example: typedef int (*pf) ();int func();pf=func; // OK, ‘func’ is implicitly converted to ‘&func’ However, member