Создание файла с именем из переменной

[viter]

Помогите сделать так что бы создавались текстовики для дальнейшего занесения в них инфы и имена для них должны браться из переменной
Сделал так но видимо лажа

#include <IE.au3>
#include <Array.au3>
$sFiless = @ScriptDir & '\Adres.txt'
$hFiless = FileOpen($sFiless)
$sStringss = FileRead($hFiless)
FileClose($hFiless)
$aURLglob=StringSplit(StringStripCR($sStringss), @LF, 2)
For $vgl=0 to UBound($aURLglob)-1
$sURL = $aURLglob[$vgl]                              
	$aHostfile=StringRegExp($sURL,'(?<=/http://)([^\h''"/]*)',1) 
        $sHostfile=$aHostfile[0]
	$sFileadr = @ScriptDir & '\' & $sHostfile & '.txt'
        $file = FileOpen($sFileadr, 1)
	$sTextt='111111111111111111'	 	 
 	FileWriteLine($file, $sTextt) 
FileClose($file)
Next

Добавлено:

Сообщение автоматически объединено: 23 Фев 2013

Все нашел ошибку, скрипт рабочий