Batch File: Clear Desktop (WinNT.X)

:: Get to your system drive, I've hardcoded c:.
c:
:: Change directories to your desktop.
cd "%userprofile%"\desktop\
:: Create a directory to store stuff for later.
mkdir "%userprofile%"\desktop\ReviewCullDesktop\
:: Move all files to this folder.
move /y *.* "%userprofile%"\desktop\ReviewCullDesktop\
:: Change over to this destination folder and put your shortcuts back.
cd "%userprofile%"\desktop\ReviewCullDesktop\
move /y *.rdp "%userprofile%"\desktop\
move /y *.lnk "%userprofile%"\desktop\

VB Law

http://www.visibleprogress.com/screenshot_ws.htm

Batch: Hack to change file extension.

for %f IN (*.tmp) DO echo. f|xcopy %f %f.txt & del %f

VB6 Contains - InStr

Quick and easy VB6 way to determine whether the string ERX is in the strInBuffer.

If InStr(strInBuffer, "ERX") <> 0 Then
strMessage = ""
End If

VB6 Hang or Pause for X Seconds

Private Sub Hang(sngSeconds As Single)
Dim sngTimeOut As Single
sngTimeOut = Timer + sngSeconds
DoEvents
Do Until Timer >= sngTimeOut
Loop
End Sub

VB6 Compile Name

The name of the executable is located in the .vbp project file.

ExeName32="in.exe"

VB6 Map Drive - Format File Name

strFtpFileName = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)