[VB6] syntaxe répertoire de sauvegarde
Résolu
sympatiqueCCM
Messages postés
408
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'aurais besoin SVP d'un petit coup de main.
J'ai terminé mon app;lication de base de donnée en VB6
et j'aimerais connaitre la syntaxe pour sauvegarder la creation
de la base de donnée dans le repertoire " Mes Documents " de
l'utilisateur courants...
Example : Set MyDb = MyWs.CreateDatabase("C:\*******\****\" & dbname & ".mdb", dbLangGeneral, dbVersion30)
Ce programme fonctionne sous windows 2000 et xp.
Merci beaucoup a l'avance de votre aide
Raymond Fournier.
J'aurais besoin SVP d'un petit coup de main.
J'ai terminé mon app;lication de base de donnée en VB6
et j'aimerais connaitre la syntaxe pour sauvegarder la creation
de la base de donnée dans le repertoire " Mes Documents " de
l'utilisateur courants...
Example : Set MyDb = MyWs.CreateDatabase("C:\*******\****\" & dbname & ".mdb", dbLangGeneral, dbVersion30)
Ce programme fonctionne sous windows 2000 et xp.
Merci beaucoup a l'avance de votre aide
Raymond Fournier.
A voir également:
- Getspecialfolder(2)
- Logiciel de sauvegarde gratuit - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Sauvegarde facile - Télécharger - Sauvegarde
- Sauvegarde android - Guide
- Répertoire téléphonique gratuit - Télécharger - Bureautique
2 réponses
Bonsoir,
bah ! je ne connais que les outils de scripting :
Lupin
bah ! je ne connais que les outils de scripting :
Dim objFSO, objDirWin, objDirProg, objDirTmp, Valeur
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDirWin = objFSO.GetSpecialFolder(0)
Set objDirProg = objFSO.GetSpecialFolder(1)
Set objDirTmp = objFSO.GetSpecialFolder(2)
Valeur = "[" & objDirWin & "] - [" & objDirProg & "] - [" & objDirTmp & "]"
MsgBox Valeur
Lupin
suite :
J'ai trouvé un bout de code mieux adapter (sous VBA) !
Lupin
J'ai trouvé un bout de code mieux adapter (sous VBA) !
Sub LireVarEnv()
Dim oWsh As Object, oWshEnv As Object
Dim VariableEnvironnement As String
Dim Indice As Long, Resultat As String
Set oWsh = CreateObject("WScript.Shell")
Set oWshEnv = oWsh.Environment("PROCESS")
VariableEnvironnement = "": Resultat = ""
For Indice = 0 To 2
Select Case (Indice)
Case 0: VariableEnvironnement = _
oWsh.ExpandEnvironmentStrings("'%windir%'")
Case 1: VariableEnvironnement = _
oWsh.ExpandEnvironmentStrings("'%programfiles%'")
Case 2: VariableEnvironnement = _
oWsh.ExpandEnvironmentStrings("'%username%'")
End Select
Resultat = Resultat & vbCrLf & VariableEnvironnement
Next Indice
MsgBox Resultat, vbInformation, "Aide en ligne"
End Sub
'
Lupin
