;----------------------------Všechny soubory PST v profilu----------------------
? "Hledám PST soubory na disku..."

IF OPEN(3,$ADR_MIGRACE + "\" + $ADR_DOCASNE + "\Soubory.log",2) = 0             ;Otevři soubor pro čtení, je to OK?
      $RADEK = READLINE(3)
      $CISLO = 1
      WHILE @ERROR = 0                                      ;Dokud nebudu na konci souboru, čti řádky
        IF (INSTR(RIGHT($RADEK,4), ".pst")) AND (INSTR($RADEK,"C:\Documents and Settings\" + $PROFIL))                          ;Pokud řádek obsahuje slovo ".pst" vypiš

          MD $ADR_MIGRACE + "\" + $PROFIL + "\Pst"          
          
          IF INSTR($RADEK, "$ADR_MIGRACE")
            GOTO OBSAHUJE_MIGRACI
          ENDIF
          $NAZEV_SOUBORU = RIGHT($RADEK,LEN($RADEK)-INSTRREV($RADEK,"\"))
          color W+/n
          ? "" + $CISLO + "> " + $RADEK
          ? "Kopíruji (může trvat i několik minut)... " + @CRLF
          SHELL "CMD.EXE /C COPY " + Chr(34) + "" + $RADEK + "" + Chr(34) + " " + Chr(34) + "" + $ADR_MIGRACE + "\" + $PROFIL + "\Pst\" + $CISLO + "_" + $NAZEV_SOUBORU + "" + Chr(34) + " /Y"
          $CISLO = $CISLO + 1
        ENDIF        
    :OBSAHUJE_MIGRACI
        $RADEK = READLINE(3)                                ;Načti další řádek
      LOOP
      $CISLO = $CISLO - 1 
      IF CLOSE (3)
      ENDIF
    ELSE
      ? "Nelze otevřít soubor Soubory.log pro čtení!"
    ENDIF

color w/n
? "---------------------"
color W+/n
? "Nalezeno a zkopírováno " + $CISLO + " soubory/ů." 
color w/n
? "---------------------"