Chemin en vb
Résolu
william
-
william -
william -
Bonjour,
j'utilise microsoft visual basic et je voudrais faire un chemin vers AppData.
j'arrive à l'afficher grâce à cette commande:
le but serait de l'insérer dans cette commande:
j'utilise microsoft visual basic et je voudrais faire un chemin vers AppData.
j'arrive à l'afficher grâce à cette commande:
MsgBox(Environ("appdata"))
le but serait de l'insérer dans cette commande:
Const ForWriting = 2
Dim fso, f
fso = CreateObject("Scripting.FileSystemObject")
f = fso.OpenTextFile("%appdata%\bonjour.txt", ForWriting, True)
f.write("Salut")
2 réponses
-
Bonjour,
Ta syntaxe semble issue du VBS (Visual Basic Scripting)
à partir de ceci tu pourras atteindre le répertoire souhaité :
Dim oWSH, oWshEnv Dim VarEnv1, VarEnv2, VarEnv3 Set oWSH = CreateObject("WScript.Shell") Set oWshEnv = oWSH.Environment("PROCESS") VariableEnvironnement = "" VarEnv1 = oWSH.ExpandEnvironmentStrings("'%windir%'") VarEnv2 = oWSH.ExpandEnvironmentStrings("'%programfiles%'") VarEnv3 = oWSH.ExpandEnvironmentStrings("'%username%'") WScript.Echo ("Le répertoire Windows est : " & VarEnv1 & vbCrLf & _ "Le répertoire Windows est : " & VarEnv2 & vbCrLf & _ "L'identifiant de la session est : " & VarEnv3)
Lupin-
Très gros Merci
le résultat Donne:
Dim oWSH, oWshEnv Dim VarEnv1, VarEnv2, VarEnv3 oWSH = CreateObject("WScript.Shell") oWshEnv = oWSH.Environment("PROCESS") EnvironmentVariable = "" VarEnv1 = oWSH.ExpandEnvironmentStrings("%windir%") VarEnv2 = oWSH.ExpandEnvironmentStrings("%programfiles%") VarEnv3 = oWSH.ExpandEnvironmentStrings("%username%") Const ForWriting = 2 Dim fso, f fso = CreateObject("Scripting.FileSystemObject") f = fso.OpenTextFile("C:\Users\" + VarEnv3 + "\AppData\Roaming\fichier\bonjour.txt", ForWriting, True) f.write("Salut")
-
-
tu veux creer un fichier boujour.text dans appdata ?! mdr
