VBS conversion... Don't know why I always get a problem!

[torels]

Hi there

I have this part of VBS code:

Function CreateNewFile(sPathName)
im fso, fp  
Const ForWriting  = 2   
On Error Resume Next    
Set fso = CreateObject("Scripting.FileSystemObject")    
Set fp = fso.OpenTextFile( sPathName, ForWriting, True )                    
fp.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)          
fp.Close ''Chiude il file, altrimenti non si può usare.      
Set fso = Nothing   
End Function

and this is the autoit Part:

Func _NewFile($filename)
    Dim $fso, $fp
    Const $ForWriting = 2
        $fso = ObjCreate("Scripting.FileSystemObject")  
        $fp = $fso.OpenTextFile($filename, 2, True)  ;create file
        $string = Chr(80) & Chr(75) & Chr(5) & Chr(6) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0)
        $fp.Write($string) ;Write the file (header)
        $fp.close
EndFunc

but It's not working... the $string value is different from the Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0) in VBS

does seomebody know why ?

thanks in advance

Edited June 11, 2008 by torels

[torels]

nobody ?

[Airwolf]

Try this:

Func _NewFile($filename)
    $fp = FileOpen($filename, 2)  ;open file and erase previous contents
    $string = Chr(80) & Chr(75) & Chr(5) & Chr(6) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0)
    FileWrite($fp, $string) ;Write the file (header)
    FileClose($fp)
EndFunc

If this doesn't accomplish what you are looking for, then please post the error you are receiving with your current method. I don't see any reason to continue using the VBS objects when you've already got built-in functions to replace them in AutoIt.

Edited June 11, 2008 by Airwolf

[weaponx]

The String function in VBS takes two parameters, the first one is count and the second is a literal character.

http://www.w3schools.com/VBscript/func_string.asp

You shouldn't be using Chr(0), only "0" or 0.