Enregistrer sur le bureau

Question

Salut a tous.

Est ce que quelqu'un sai comment forçer l'enregistrement sur le bureau.
c-a-d rentrer le chemin dans le code pour que l'enregistrement se fasse sur le bureau(ou mêm ailleur) sans intervenir. 

Merci d'avance.

fcampagne · Answer

Slt, ca d&#233;pend quel OS tu poss&#233;des, le chemin du bureau n'est pas le m&#233;me d'uner version &#224; l'autre!

Mais quesque tu veux faire pr&#233;cisement? enregistrer un fichier g&#233;n&#233;r&#233; par ton programme sur le bureau???

En mettant le chemin C:\Documents and Settings\USER\Bureau ca ne marche pas???

stabe · Answer

salut,

Pour connaite le chemin du bureau (qui dépend de ta version d'OS) :

' nécessite la référence windows script host object model (ver 1.0)
Dim WshShell As IWshRuntimeLibrary.IWshShell_Class

Set WshShell = New IWshRuntimeLibrary.IWshShell_Class

Msgbox WshShell.SpecialFolders("Desktop")

-- stabe --

BruNews · Answer

Eviter la machine script, VB est d&#233;j&#224; assez lourd sans lui rajouter cette couche par dessus. De plus &#231;a a la facheuse tendance &#224; exciter les antivirus.
SHGetSpecialFolderPath() avec CSIDL_DESKTOPDIRECTORY donnera le chemin bien plus vite.

ciao...
BruNews, MVP VC++

JONJON91 · Answer

Je voudrais enregistrer mon fichier sur le bureau sans que la fenêtre sauver s'ffiche.
Voici mon code:

Sub Sauve()

Dim Name As String
Name = TxtName.Text
CommonDialog1.FileName = Name
CommonDialog1.Filter = "Fel Data (*.Fel)|*.Fel"
    
    If CommonDialog1.FileName <> "" Then
        Open CommonDialog1.FileName For Output As #1
        Print #1, TxtNote.Text
        Close #1
    End If

End Sub

Je voudrais entrer une ligne de code afin que le fichier se sauve dans un dossier préci(le bureau par ex)

BruNews · Answer

si tu veux forcer le chemin alors pas besoin de faire apparaitre la common dialog, balance juste une dialog perso avec une zone texte demandant le nom du fichier.

ciao...
BruNews, MVP VC++

kakenette · Answer

Tu fait ca au pire :



Sub SauverBureau()

        Open "C:\Documents and Settings\All Users\Bureau\MonFichier" For Output As #1

        Print #1, TxtNote.Text

        Close #1

End Sub

kakenette

Enregistrer sur le bureau

6 réponses

Discussions similaires