[VB6] syntaxe répertoire de sauvegarde Résolu

Question

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.

Utilisateur anonyme · Answer

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

Utilisateur anonyme · Answer

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

[VB6] syntaxe répertoire de sauvegarde

2 réponses

Discussions similaires

Newsletters