Aktív témák

• #28 cigam titán katona.t #19

  2010-05-15 00:06:00 #28

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  cigam

  titán

  válasz katona.t #19 üzenetére

  Dim fso, i, fajlnev
  Set fso = CreateObject("Scripting.FileSystemObject")
  i=1
  While i<101
  fajlnev= "bejövő" + cstr(i) + ".txt"
  fso.MoveFile "bejövő.txt", fajlnev
  WScript.Sleep(1000)
  i=i+1
  Wend

  Az fso-t elég 1x létrehozni nem kell a ciklusba.
  Bár ha 1mp-en belül nem jön egy újabb bejövő.txt akkor kiakad a progi, mert nem lesz mit move-olni.

Aktív témák