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")
A voir également:
- Chemin en vb
- Vb - Télécharger - Langages
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Le chemin d'accès spécifié est introuvable ✓ - Forum Téléchargement
- Chemin fichier host - Guide
- Discord aucun chemin de connexion - Forum Discord
2 réponses
Bonjour,
Ta syntaxe semble issue du VBS (Visual Basic Scripting)
à partir de ceci tu pourras atteindre le répertoire souhaité :
Lupin
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
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")