Créer un nom aléatoire pour un fichier

Techniques

Cette section permet de regrouper un ensemble de techniques ou de scripts qui ont l'originalité d'arriver à résoudre une difficulté avec le moindre effort ou qui sont particulièrement efficaces...

•  La méthode GetTempName de l'ojet FSO:

Généralement lorsque l'on veut générer dynamiquement plusieurs fichiers, comme des fichiers de logs par exemple ou des états ou lettres à produire à la volée, en leur donnant des noms différents, la plupart des développeurs optent pour une nommination incluant l'heure de création du fichier. C'est une méthode qui a fait ses preuves mais cet article présente néanmoins une autre technique basée sur la méthode GetTempName de l'objet FSO.

En effet même si peu de développeurs la connaissent et l'utilisent, il est possible de générer un nom aléatoire pour des fichiers ou des dossiers avec cette méthode. Elle est généralement utilisée lorsqu'il s'agit de créer des fichiers temporaires

	
<%

Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateTempFile 
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   
   'Obtenir une référence sur le répertoire temp
   ' TemporaryFolder
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   
   'Obtenir un nom aléatoire de fichier
   tname = fso.GetTempName    
   
   'Créer le fichier avec ce nom
   Set tfile = tfolder.CreateTextFile(tname)
   
   'Renvoyer une référence sur le fichier
   Set CreateTempFile = tfile
End Function

Set tempfile = CreateTempFile
tempfile.WriteLine "Hello World"
tempfile.Close

Set fso = Nothing
	
%>