home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2007 November
/
CPNL0711.ISO
/
beeld
/
screen
/
hcf.exe
/
Basic
/
Basic_File_040_CopyTo.bas
< prev
next >
Wrap
BASIC Source File
|
2003-11-26
|
729b
|
25 lines
File.Find( "c:\\temp" + "\\hardcopy.log" )
If File.NumberOfFiles = 1 Then
Print "hardcopy.log is in c:\\temp available"
Else
Print "hardcopy.log is in c:\\temp not available"
EndIf
Print
File.Find( File.CommonWindowsDirectory + "\\hardcopy.log" )
If File.NumberOfFiles = 1 Then
Print "hardcopy.log is in ", File.CommonWindowsDirectory, " available"
Else
Print "hardcopy.log is in ", File.CommonWindowsDirectory, " not available"
EndIf
error = File.CopyTo( "c:\\temp" + "\\hardcopy.log" ) ' <<<<<<<<<<<<<<<<<<<<<<<<<<<
If error <> "" Then Print error
Print
If File.NumberOfFiles = 1 Then
Print "hardcopy.log is in c:\\temp available"
Else
Print "hardcopy.log is in c:\\temp not available"
EndIf