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.

• #20 katona.t tag katona.t #19

  2010-05-10 13:12:23 #20

  Ö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

  

  katona.t

  tag

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

  UP!

Aktív témák