[Resolvido] Criar TempFile

[xanburzum 169]

Geralmente, quando queremos gerar mais arquivos, como arquivos de log ou tais declarações para a produção de forma instantânea, dando-lhes nomes diferentes, a maioria dos desenvolvedores optar por incluir o tempo de criação arquivo. Este método foi comprovado, mas o artigo, no entanto, apresenta outra técnica baseada no método do objeto GetTempName FSO.

 

Na verdade, embora poucos desenvolvedores conhecem e utilizam, é possível gerar um nome aleatório para arquivos ou pastas com este método. É geralmente utilizado para a criação de arquivos temporários

 

 

 

<%

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

Function CreateTempFile 
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   
   'Obter uma referência para o diretório temp
   ' TemporaryFolder
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   
   'Obter um nome de arquivo aleatório
   tname = fso.GetTempName    
   
   'Criar o arquivo com esse nome
   Set tfile = tfolder.CreateTextFile(tname)
   
   'Retorna uma referência para o arquivo
   Set CreateTempFile = tfile
End Function

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

Set fso = Nothing
	
%>