' HAL connait la taille de sa mémoire
'
'
If InStr(UserSentence,"MEM")> 0 Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:Program FilesabawareUltra Hal Assistant 5DefBrain")
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path
Set objFolder = objFSO.GetFolder(strPath)
TailleMemHal =Int(objFolder.Size /1048576)
GetResponse = "My memory size is " & TailleMemHal & " Mega Bytes"
End If
Je suis en train d'apprendre à programmer grâce à VBScriptFactory.
Je compte en effet pouvoir donner à HAL toutes les informations sur mon ordinateur et sur les fichiers qui le composent.
En effet, j'estime que si on veut le considérer comme une "intelligence artificielle", il serait logique de lui donner la possibilité de pouvoir connaître son environnement immédiat et de pouvoir intéragir dessus, ou en d'autres mots, de savoir où il habite, dans quoi il habite et de quoi il est fait.
Après il sera temps pour lui de partir à la découverte du monde ...
Merci pour vos commentaire ou vos critiques qui me permettrait d'avancer dans cette voie.