Tweet
I've read a few threads here about simulating the old QuickBasic VIEW statement by using SCROLL.
What I'm trying to do in a console window is to display text like "copying files" at the top, then shell out, run an xcopy, and have the copied files scroll up the screen, but my "copying files" stays at the top.
I've been messing with SCROLL today, and I must be missing something because I can't really get it do to anything but position text.
What I'm trying to do in a console window is to display text like "copying files" at the top, then shell out, run an xcopy, and have the copied files scroll up the screen, but my "copying files" stays at the top.
I've been messing with SCROLL today, and I must be missing something because I can't really get it do to anything but position text.
Code:
' copy notifier
Function PBMain
Local fName As String
Local fNumber As Long
Local copyPath As String
Local i As Long
' open the xcopy file
' it should look something like this:
' xcopy "\\mmhserv1\Common\Paragon\paragon91217_patches\*.*" "C:\Program Files\Paragon91\*.*" /D
fName="copypath.txt"
fNumber=FreeFile
console screen 26, 80
cls
If Not exists(fName) Then
Print "The file copypath.txt is not found."
Print "This file holds the xcopy statement that executed by batchCopy.exe"
Print "Please create a copypath.txt file in the same directory as batchCopy.exe"
Print "Press any key to quit"
waitkey$
Exit Function
End If
Open fName For Input As #fNumber
Line Input #fNumber,copyPath
Close #fNumber
Color 10,0
Print "updating files...."
Color 7,0
SCROLL DOWN 1, 2, 1
Shell(Environ$("COMSPEC") + " /C " + copyPath)
End Function
'---------------------------------------------------------------------------
' function name: Exists
' description: checks to see if a file exists
' input: lostSheep : (variable holding name of file)
' returns: true or false
Function Exists(ByVal LostSheep As String) As Long
Function = (Len(Dir$(LostSHeep)) > 0)
End Function
Comment