Requires
Imports Microsoft.VisualBasic |
Name "File.dat" as "File2.dat"
Chdir ".."
Chdrive "A"
FileCopy "C:\temp\net\diff.vb","C:\temp\Net\Diff.vb2"
Kill "C:\temp\Document.dat"
strText=Instr(strText,"Name")
strText=Lcase("name")
strText=LTrim(" Name")
strText=mid(strText,5) & strText=Right(strText,5) & strText=Left(strText,5))
lngText=Len(strText))
Mkdir "C:\temp\New"
Rmdir "C:\temp\New"
strText=Oct(94)
strText=trim(strText)
strText=Ucase(strText)
While condition = True
Wend
|
Rename("File.dat","File2.dat")
Chdir("..")
Chdrive("A")
FileCopy("C:\temp\net\diff.vb","C:\temp\Net\Diff.vb2")
Kill("C:\temp\Document.dat")
strText=Instr(strText,"Name")
strText=Lcase("name")
strText=LTrim(" Name")
strText=(strText.substring(1,5))
lngText=Len(strText))
Mkdir("C:\temp\New")
Rmdir("C:\temp\New")
strText=Oct(94)
strText=trim(strText)
strText=Ucase(strText)
While condition = True
End While
|