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

• #1178 ArchElf addikt csimmasz #1177

  Új Válasz 2010-05-03 13:25:38 #1178

  Ú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

  Privát üzenet küldése

  

  ArchElf

  addikt

  válasz csimmasz #1177 üzenetére

  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

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