‘ Count how many characters of a given type are in a file’ Example:’ Dim charCount(255) As Integer’ CountFileCharacters(“c: est.txt”, charCount)’ Debug.WriteLine(“the char ‘A’ was found ” & charCount(Asc(“A”)) &
‘ Get the Url pointed by the input link (*.url) file” Example: print the Url of all the link files in the Favorites folder’ Dim filePath As String’ For Each
‘ Retrieve the drive name (label) of the specified drive’ Note: requires a reference to the System.Management assembly’ Example: MessageBox.Show(GetDriveLabel(“D”c))Function GetDriveLabel(ByVal driveLetter As Char) As String Dim driveFilter As String
‘ Retrieve the serial number of the specified drive’ Note: requires a reference to the System.Management assembly’ Example: MessageBox.Show(GetDriveSerialNumber(“D”c))Function GetDriveSerialNumber(ByVal driveLetter As Char) As String Dim driveFilter As String =
‘ Set the length in bytes of the input file’ Example:’ Dim filePath As String = “c: est.txt”‘ MessageBox.Show(“Original length: ” & New System.IO.FileInfo(filePath)’ .Length)’ SetFileLength(filePath, 50000)’ MessageBox.Show(“New length: “