‘ Returns a boolean indicating whether the file is an imageFunction IsImageFile(ByVal filePath As String) As Boolean ‘ add more extensions if you wish Dim extensions() As String = New
‘ Returns a boolean indicating whether a given drive is ready’ Example: check if the floppy disk drive is ready’ Debug.WriteLine(IsDriveReady(“a”))Function IsDriveReady(ByVal driveLetter As String) As Boolean If driveLetter.Length =
Shared Function _ SearchPath(ByVal tartPath As String, ByVal fileName As String, _ ByVal extension As String, ByVal bufferLength As Integer, _ ByVal buffer As System.Text.StringBuilder, ByVal filePart As String) As
Shared Function _ SearchTreeForFile(ByVal rootPath As String, ByVal inputPathName As String, _ ByVal outputPathBuffer As System.Text.StringBuilder) As BooleanEnd Function’ Returns the complete path+name of the filename or a null string
‘ Returns a boolean indicating whether the file is an executableFunction IsExecutableFile(ByVal filePath As String) As Boolean ‘ add more extensions if you wish Dim extensions() As String = New
‘ 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’ – header: a
‘ Returns a boolean indicating whether the specified folder has filesFunction FolderHasFiles(ByVal folderPath As String) As Boolean Return System.IO.Directory.GetFiles(folderPath).Length > 0End Function
Shared Function _ GetWindowDC(ByVal hWnd As Integer) As IntegerEnd Function Shared Function _ PathCompactPath(ByVal hDC As Integer, _ ByVal pathBuffer As System.Text.StringBuilder, _ ByVal dx As Integer) As BooleanEnd Function’
‘ Returns a boolean indicating whether two files are equal’ Example: Debug.WriteLine(CompareFiles(“D:File1.mdb”, “D:File2.mdb”))Function CompareFiles(ByVal path1 As String, ByVal path2 As String) As Boolean Dim file1 As New System.IO.FileInfo(path1) Dim file2