Trouver le profil courant

Très utile : trouver le répertoire où se trouve le script en cours, c'est-à-dire le nom de l'utilisateur en cours dans le répertoire Profiles.

Ceci marche :

Sub appel()
Dim FSO
Dim oNet
Dim sUsername
Dim Chemin
Dim MonFichier

Set oNet=CreateObject("WScript.Network")
sUsername=oNet.UserName
Set oNet = Nothing

Chemin = "c:Profiles\" & suserName & "\datenoj.txt"

Set FSO = CreateObject("Scripting.FileSystemObject")
Chemin = FSO.GetAbsolutePathName(Chemin)
Set MonFichier = FSO.OpenTextFile(Chemin,1)

End Sub

La variable Chemin contient le chemin complet d'un fichier texte, sous cette forme : C:\OCLCPica\WinIBW30\Profiles\combot\datenoj.txt

Le script utilise l'objet WScript.Network pour déterminer l'utilisateur courant : voir ici.

Puis on fabrique une chaîne de caractères par concaténation. La chaîne contient seulement c:Profiles\combot\datenoj.txt
La fonction GetAbsolutePathName(Chemin) permet de former le chemin exact et complet.