Internal Routine: AOR_NEWPATH

BEGINSUB AOR_NEWPATH
*	------------------------------------------------------*   Create a new output folder. *   Called by AOR_NEWFILE DAL script.
*	------------------------------------------------------
    IF #AOR_Debug 
       RPLogMsg(NL() & "  ** AOR_NEWPATH:" & NL() )
    END
    #AOR_BatchCount = #AOR_BatchCount
    AOR_BatchID = AOR_BatchID
    AOR_BatchDir = AOR_BatchDir
    #AOR_Count = #AOR_Count
    AORPath = GETINISTRING(,PRINTERID(),"AORPath")
    AOR_Drive    = FILEDRIVE( AORPath )
    AOR_Path     = FILEPATH( AORPath )
    AOR_Last     = FILENAME( AORPath )
    AOR_Rootdir  = FULLFILENAME( AOR_Drive, AOR_Path, AOR_Last, "")
    IF #AOR_Count = 1
        #AOR_BatchCount += 1
        AOR_Drive    = FILEDRIVE(AOR_RootDir)
        AOR_Path     = FILEPATH(AOR_RootDir)
        AOR_Last     = FILENAME(AOR_RootDir)
        AOR_BatchDir = FULLFILENAME(AOR_Drive,AOR_Path & 
AOR_Last,AOR_JobID,"")
        AOR_Drive    = FILEDRIVE(AOR_BatchDir)
        AOR_Path     = FILEPATH(AOR_BatchDir)
        AOR_Last     = FILENAME(AOR_BatchDir)
        AOR_BatchDir = 
FULLFILENAME(AOR_Drive,AOR_Path&AOR_Last,AOR_BatchID&"x"&#AOR_BatchC ount,"")     END
ENDSUB