Function FileExist(NomeFile as String) as Boolean
'Nota bene che NomeFile deve comprendere anche il percorso 'ad esempio C:\WINDOWS\WIN.INI dim temp as String temp = Dir$(NomeFile) If temp = "" Then FileExist=False Else FileExist=True End If End Sub |