Discussion :

[peofofo]

Bonjour a tous,

J'ai mis en place un sub pour transférer un fichier par FTP.
Le problème est que je ne peus pas copier le fichier en cours de lecture.
Donc il va falloir que je l'enregistre temporairement.
Je pensais l'enregistrer dans un répertoire temporaire. Mais comme pas tous les windows ont le dossier temp a la meme racine, y aurait il un autre moyen pour faire cette copie?

Merci

[pc75]

Bonjour,

Tiens, un extrait de MSDN :

Microsoft® Visual Basic® Scripting Edition
GetSpecialFolder, méthode Référence du langage
Version 3


Voir aussi Application


--------------------------------------------------------------------------------

Description
Retourne le dossier spécial spécifié.
Syntaxe
object.GetSpecialFolder(folderspec)
La syntaxe de la méthode GetSpecialFolder comprend les éléments suivants :

élément Description
object Correspond toujours au nom d'un objet FileSystemObject.
folderspec Le nom du dossier spécial à retourner. Ce nom peut être toute constante de la section Valeurs.


Valeurs
L'argument folderspec peut prendre les valeurs suivantes :
Constante Valeur Description
WindowsFolder 0 Le dossier Windows contient des fichiers installés par le système d'exploitation Windows.
SystemFolder 1 Le dossier Système contient les bibliothèques, les polices et les pilotes de périphérique.
TemporaryFolder 2 Le dossier Temp stocke les fichiers temporaires. Son chemin figure dans la variable d'environnement TMP.



Notes
L'exemple ci-dessous illustre l'utilisation de la méthode GetSpecialFolder :
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateTempFile
Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
tname = fso.GetTempName
Set tfile = tfolder.CreateTextFile(tname)
Set CreateTempFile = tfile
End Function

Set tempfile = CreateTempFile
tempfile.WriteLine "Bonjour"
tempfile.Close

[aalex_38]

Bonjour,


Il existe aussi la fonction environ :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MsgBox Environ("Temp")

[peofofo]

Merci a tous les 2.
La fonction Environ marche nickel.