VBScript Interview Qustions...

1.Read any 4 numbers and displays the reverse order?

Dim num,rnum,revdig
Dim numArray(10)

num = inputbox("enter the number")
rnum =0
revdig =0 

jx= len(num)
for ix=0 to jx
 revdig = num mod 10
 rnum = (rnum*10)+revdig
 num = num /10
 itx = jx-ix
 if itx =1 then
  exit for
 end if
 num =left(num,itx)
Next
msgbox rnum


2. write a vbscript  to create  textfile and delete file?

dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("D:\123.txt") Then
        fso.DeleteFile"123.txt"
     Wscript.Echo("File deleted")
    Wscript.Echo("New File is creating")
     set file = fso.CreateTextFile("D:\123.txt", True)
    file.Writeline("Hello world")
End If