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
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.