Ticket #570: FilenameTest.au3

; -----------------------------------------------------------------------
Opt("ExpandVarStrings", 1)      ;0=don't expand, 1=do expand
; Filename table
Global $MaxFilenames = 5
Global $Filename[5]
; ALL FILENAMES IN THIS TABLE WILL IN THE END BE CREATED WITH ONLY ONE DOLLAR ($) SIGN LEFT!!
; SHOULD Opt("ExpandVarStrings", 1) WORK THIS WAY? AutoIt is analyzing the CONTENTS of variabels
; and changes them if $ is found. I thought Opt was a compiler directive telling the compiler to interpret
; literals and variabel names in the AutoIt language only. Not the contents of variabels when running
; the script!! 
; Literal strings are not = variabel contents!!!!!!!!!!!!!!!
$Filename[0] = "1cbep§bnk.txt"             ; 
$Filename[1] = "2cbep§§bnk.txt"            ; 
$Filename[2] = "3cbep§§§bnk.txt"           ;
$Filename[3] = "4cbep§§§§bnk.txt"          ;
$Filename[4] = "5cbep$$$$$$$$$$bnk.txt"    ;
; End of Filename table
  
$dira = @WorkingDir&"\"
Global $WRITE = 1 
    
For $IX = 0 to $MaxFilenames - 1
    $Filename[$IX] = StringReplace($Filename[$IX],"§","$")
    $origfilename = $Filename[$IX]
MsgBox(4096, "MSG 1", "$$Filename $IX$ = "&$Filename[$IX]&" $$origfilename = $origfilename$")   ; DEBUGD
    If FileExists($origfilename) Then
       FileDelete($origfilename)
    Endif 
    $myfile=FileOpen($origfilename, $WRITE) 
    $longfilename = FileGetLongName($dira&$origfilename)
    $errorstat    = @error
    $msg = "File $$IX=$IX$ $$origfilename=$origfilename$ $$longfilename=$longfilename$ $$errorstat = $errorstat$"&@CRLF
    FileWrite($myfile,$msg)
    $msg = "$$Filename $IX$ = "&$Filename[$IX]&" $$origfilename = $origfilename$"
    FileWrite($myfile,$msg)
    FileClose($myfile)
Next