Function DoesfileExist(strContent)'Tjekker om fil eksisterer Dim blnCheck, arrFiler, i blnCheck = True arrFiler = Split(strContent,",") Set objFSO = CreateObject("Scripting.FileSystemObject") For i = 0 To Ubound(arrFiler) Wscript.Echo "Tjekker " & strFileDir & arrFiler(i) If Not objFSO.FileExists(strFileDir & arrFiler(i)) Then blnCheck = False End If Next Set objFSO = Nothing If blnCheck Then Write2Log "Alle nødvendige filer eksisterer" End If DoesfileExist = blnCheck End Function
Har opdaget at scriptet intet fejer... problemet var, at lige inden funktionen blev kaldt, kørte jeg en anden funktion som pakkede de filer ud som denne skulle tjekke på. Og af en eller anden grund var den første fil "låst/ikke tilgængelig". Løsningen blev, at jeg indsatte en pause mellem de 2 kald.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.