Convert Visual Basic to VBScript Help

[mukker]

Hi all,

Can anyone help me with converting this piece of code to a vbscript.

Dim TheRecord As String
Dim L As Long
Const MaxLength As Long = 336
Open "OldFile.Txt" For Input Access Read Shared As #1
Open "NewFile.Txt" For Output Access Write Lock Write As #2
Do Until Eof(1)
Line Input #1, TheRecord
L = Len(TheRecord)
If L < MaxLength Then
TheRecord = TheRecord & Space$(MaxLength - L)
End If
Print #2, TheRecord
Loop
Close

TIA

 

[PHV]

Have a look here:

http://msdn.microsoft.com/library/en-us/script56/html/af4423b2-4ee8-41d6-a704-49926cd4d2e8.asp

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886