VBA Comment obtenir le chemin d'accès pour Les Utilisateurs Actuels dossier de données d'Application?

En général,

À l'aide de VBA, comment puis-je déterminer où les utilisateurs Actuels dossier Application Data est?

La FileSystemObjects dossiers spéciaux ne sait que sur 3 dossiers

  • Windows
  • Système
  • TemporaryFolder

Plus précisément, j'ai besoin d'une Macro Word pour copier un fichier à un dossier sous le dossier de Données d'Application.

par exemple Dans VB.Net je peux utiliser My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData pour ce faire

OriginalL'auteur Binary Worrier | 2009-06-10

  1. 27

    Vous pouvez utiliser Environ("AppData") pour obtenir ce chemin. Environ va tirer toute variable système, qui peut être trouvé en utilisant le set de commande à l'invite DOS.

    Je n'ai jamais pensé à vérifier l'Environnement de chaînes de caractères, cela fonctionne un régal, merci 🙂
    Je pense que la Environ() approche n'est pas fiable comme les variables d'environnement peuvent être modifiées par l'utilisateur et peut entraîner des résultats inattendus. À l'aide de l'API de Windows peut-être mieux. Voici un exemple pour la recherche de Documents / dossier Mes Documents: dailydoseofexcel.com/archives/2009/02/26/... Si vous pouvez trouver un moyen de le faire pour le dossier AppData, il pourrait être une meilleure façon.

    OriginalL'auteur Eric

  2. 8

    À l'aide de advapi32.dll, vous pouvez obtenir le USERPROFILE via 

    Environ("USERPROFILE")

    En relation avec les "Application Data" directory (qui a une norme, le nom spécifique) pour obtenir ce que vous voulez

    CStr(Environ("USERPROFILE") & "\Application Data")

    Pour plus d'informations, consultez MSDN

    OriginalL'auteur Andrew Scagnelli