Új hozzászólás Aktív témák

• csimmasz aktív tag

  #1179

  #1178 ArchElf

  2010-05-03 20:42:52

  Új Válasz

  Új hozzászólás

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

  

  csimmasz

  aktív tag

  #1178 ArchElf

  #1178 ArchElf

  Option Explicit
  'strFolder -> kívánt könyvtárnevet beleírni
  'fShell -> utorrent.exe teljes elérési útvonala (dupla quote kell, ha az elérési útvonal tartalmaz space-t)
  
  Dim sFolder, oFSO
  Dim oShell, fShell
  sFolder = "S:\Share"
  fShell = """c:\ProgramFiles\uTorrent\uTorrent.exe"""
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  While not oFSO.FolderExists(strFolder)
  WScript.Sleep 30000
  Wend
  Set oFSO = Nothing
  WScript.Sleep 5000
  Set oShell = WScript.CreateObject ("WScript.Shell")
  oShell.run fShell
  Set oShell = Nothing
  A két változó értékét beállítod:
  - share könyvtár helye (célszerű map-elve meghajtóra)
  - torrent program elérési útvonala

  A script fél percenként megnézi, hogy elérhető-e a share, amikor igen, elindítja a programot.

  AE

  Isten király!
  Nagyon nagy ,köszönet érte!
  Ki is próbálom amint lessz időm!

Új hozzászólás Aktív témák