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.
Problemet er kommunikationen med activeexefilen som returnere true false er vb6.0
Public Sub CheckFile(ByVal FileName, ByVal FileDate, Updated, IsPresent) \'------------------------------------------------------------------------------------------- \' Metode: CheckFile \' Beskrivelse: Finder informationer om en lokal fil \'------------------------------------------------------------------------------------------- Dim objFile As File
Updated = False IsPresent = False
On Error GoTo CF_ErrorHandler
Set objFile = frmProgress.objFSO.GetFile(frmProgress.strProjectPath & \"\\\" & FileName) If Not objFile Is Nothing Then IsPresent = True If objFile.DateLastModified <> FileDate Then Updated = True End If End If Set objFile = Nothing
Exit Sub
CF_ErrorHandler: Set objFile = Nothing If Err.Number <> 53 Then Err.Raise Err.Number, Err.Source, Err.Description, Err.HelpFile, Err.HelpContext End If End Sub
her returneres true false, det er dem jeg gerne skulle have tilbage i scriptet.
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.