AutoHotkey Community

*#c::FileCopy, C:\Program Files\Steam\steamapps\chief_ace\counter-strike source\cstrike\record.dem, C:\Documents and Settings\USER\Desktop\demos\record*.dem

ErrorCount := CopyFilesAndFolders("C:\Program Files\Steam\steamapps\chief_ace\counter-strike source\cstrike\record.dem", "C:\Documents and Settings\USER\Desktop\demos\")
if ErrorCount <> 0
    MsgBox %ErrorCount% files/folders could not be copied.

CopyFilesAndFolders(SourcePattern, DestinationFolder, DoOverwrite = false)
; Copies all files and folders matching SourcePattern into the folder named DestinationFolder and
; returns the number of files/folders that could not be copied.
{
    ; First copy all the files (but not the folders):
    FileCopy, %SourcePattern%, %DestinationFolder%, %DoOverwrite%
    ErrorCount := ErrorLevel
    ; Now copy all the folders:
    Loop, %SourcePattern%, 2  ; 2 means "retrieve folders only".
    {
        FileCopyDir, %A_LoopFileFullPath%, %DestinationFolder%\%A_LoopFileName%, %DoOverwrite%
        ErrorCount += ErrorLevel
        if ErrorLevel  ; Report each problem folder by name.
            MsgBox Could not copy %A_LoopFileFullPath% into %DestinationFolder%.
    }
    return ErrorCount
}

; Write to the array:
ArrayCount = 0
Loop, Read, C:\Documents and Settings\USER\Desktop\demos\Array.txt   ; This loop retrieves each line from the file, one at a time.
{
    ArrayCount += 1  ; Keep track of how many items are in the array.
    Array%ArrayCount% := A_LoopReadLine  ; Store this line in the next array element.
}

; Read from the array:
Loop %ArrayCount%
{
    ; The following line uses the := operator to retrieve an array element:
    element := Array%A_Index%  ; A_Index is a built-in variable.
    ; Alternatively, you could use the "% " prefix to make MsgBox or some other command expression-capable:
    MsgBox % "Element number " . A_Index . " is " . Array%A_Index%
}

*#c::FileAppend, Var := Array%A_Index% + 1, C:\Program Files\Steam\steamapps\chief_ace\counter-strike source\cstrike\record.dem, C:\Documents and Settings\USER\Desktop\demos\*.*

;FullFileName= C:\Users\Leef_me\Documents\Downloaded Files\junk274.ahk
FullFileName= C:\Program Files\Steam\steamapps\chief_ace\counter-strike source\cstrike\record.dem

;dest_dir=C:\Users\Leef_me\Documents\

dest_dir=C:\Documents and Settings\USER\Desktop\demos\

SplitPath, FullFileName, name, dir, ext, name_no_ext, drive

maxcopies=5

return


f1::


loop, %maxcopies%
{

  ;msgbox full:%FullFileName%`nname:%name%`ndir:%dir%`next:%ext%`nname_wo_ext:%name_no_ext%`ndrive:%drive%
  var:=a_index
  Var := "0000000000" . Var     ; The quotes contain 10 spaces.  To pad with zeros, substitute zeros for the spaces.
  StringRight, Var, Var, 2  ; This pads the number in Var with enough spaces to make its total width 10 characters.

  dest_filename=%dest_dir%%name_no_ext%%var%.%ext%

  IfnotExist, %dest_filename%
     break

  if a_index=%maxcopies%
    dest_filename=
}

if dest_filename=
{
  msgbox nothing available
}
else
{
  msgbox %dest_filename%
  FileCopy, %FullFileName%, %dest_filename%
}
return

StringRight, Var, Var, 2

FileCopy, c:\boot.ini, c:\%var%\boot.ini

FileCopy, c:\boot.ini, c:\var\boot.ini

StringRight, Var, Var, 2

StringRight, Var, Var, 2