[VB6] syntaxe répertoire de sauvegarde

Résolu/Fermé

sympatiqueCCM Messages postés 358 Date d'inscription jeudi 5 octobre 2006 Statut Membre Dernière intervention 26 juin 2023 - 31 oct. 2006 à 22:33
Utilisateur anonyme - 1 nov. 2006 à 00:28

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.

A voir également:

Getspecialfolder(2)
Logiciel de sauvegarde - Guide
Sauvegarde google - Guide
Sauvegarde facile - Télécharger - Sauvegarde
Vb6 - Télécharger - Divers Utilitaires
Sauvegarde time machine - Guide

2 réponses

Réponse 1 / 2

Utilisateur anonyme
31 oct. 2006 à 23:43

Bonsoir,

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

Réponse 2 / 2

Utilisateur anonyme
1 nov. 2006 à 00:28

suite :

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

Discussions similaires

Où se trouve les sauvegardes Steam ?

Pokémon X et Y : comment effacer une partie ?

Transfert de données d'un compte à l'autre

Discussions similaires

Newsletters