Probleem met script FileExist

[AshaiRey]

Ik wil checken of er bestanden in een folder staan.
Het volgende script werkt

Code: Select all

Dim oFS, oFolder
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("c:\temp")

' Check of er files in de folder staan
if(oFolder.Files.Count > 0) Then wscript.echo oFolder.Files.Count

Als ik dit een beetje aanpast om gebruikt te worden als een event in HS kom ik op dit uit

Code: Select all

Public Sub Main(ByVal Parms As String)
  dim oFS, oFolder
  set oFS = WScript.CreateObject("Scripting.FileSystemObject")
  set oFolder = oFS.GetFolder("c:\temp")
  
  ' Check of er files in de folder staan
  if(oFolder.Files.Count > 0) Then hs.TriggerEvent ("Speak Time")
End Sub

Als ik dit run in HS dan krijg ik de volgende melding
<font color="red">Script compile error: Let- en Set-toewijzingsinstructies worden niet langer ondersteund.on line 16</font id="red">

Enig idee hoe dit te omzeilen?

[Willem4ever]

set is niet nodig, doe gewoon oFS = WScript.CreateObject("Scripting.FileSystemObject")

[AshaiRey]

Bedankt.
Wat ook helpt is de vbscript 5.6 module van Microsoft installeren. :0)