Mark

Can’t find Telnet in Vista?

See this URL:  http://richmercer.com/blog/can-t-find-telnet-in-vista/

Backup Files To A USB Drive

I use my following BAT script to backup my essential files to my USB hard drive.  It uses the free Microsoft tool called RoboCopy as part of the Microsoft Windows Resource Kit Tools. The Windows Resource Kit Tools help administrators streamline management tasks such as troubleshooting operating system issues, managing Active Directory, configuring networking and security features, and automating application deployment.

See http://www.microsoft.com/downloads/details.aspx?familyid=9d467a69-57ff-4ae7-96ee-b18c4790cffd&displaylang=en

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Simple Backup sync of vital areas
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
SET RC=c:\windows\system32\robocopy.exe /mir /r:3 /w:10
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:: Add your list of vital areas under here
:: Using the same format. J:=USB Drive Letter
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
%RC% "c:\My Data" "J:\Backups\My Data"
pause

Simualte AppName in VB.NET

Here’s a little function I use to return the AppName (I use a global variable) with the current version string.

  
Public Function GetAppTitle(Optional ByVal WithVersion As Boolean = True) As String
      Dim Major As Integer = System.Reflection.Assembly.GetExecutingAssembly.GetName().Version.Major.ToString
      Dim Minor As Integer = System.Reflection.Assembly.GetExecutingAssembly.GetName().Version.Minor.ToString
      Dim Revision As Integer = System.Reflection.Assembly.GetExecutingAssembly.GetName().Version.Revision.ToString

     If WithVersion = True Then
         Return AppName & " v" & Major.ToString & "." & Minor.ToString & "." & Revision.ToString
      Else
         Return AppName
      End If
End Function

Tokenize Strings Easily

These four functions are some of the ones I use the most!  They break a string up by tokens.   tokLeftRight, for instance, finds the first occurence of a token from the Left of the string  and returns everything after that token to the Right.  These have proven to be a great time saver for me.

#Region "String Functions"

Public Function tokLeftLeft(ByVal Source As String, ByVal token As String) As String
      Dim I As Integer
      tokLeftLeft = Source
      For I = 1 To Len(Source)
         If Mid(Source, I, 1) = token Then
            tokLeftLeft = Left(Source, I - 1)
            Exit Function
         End If
      Next I
End Function

Public Function tokLeftRight(ByVal Source As String, ByVal token As String) As String
      Dim I As Integer
      tokLeftRight = ""
      For I = 1 To Len(Source)
         If Mid(Source, I, 1) = token Then
            tokLeftRight = Right(Source, Len(Source) - I)
            Exit Function
         End If
      Next I
End Function

Public Function tokRightLeft(ByVal Source As String, ByVal token As String) As String
      Dim I As Integer
     tokRightLeft = ""
      For I = Len(Source) To 1 Step -1
         If Mid(Source, I, 1) = token Then
            tokRightLeft = Left(Source, I - 1)
            Exit Function
         End If
      Next I
End Function

Public Function tokRightRight(ByVal Source As String, ByVal token As String) As String
      Dim I As Integer
      tokRightRight = ""
      For I = Len(Source) To 1 Step -1
         If Mid(Source, I, 1) = token Then
            tokRightRight = Right(Source, Len(Source) - I)
            Exit Function
         End If
      Next I
End Function