Gerando nomes

[xanburzum 169]

GetRndNomeArq cria com base mo tempo aleatório nome do arquivo constituído por cerca de 20 a 30 caracteres. Isso é útil para a criação de inúmeros nomes dentro de um único arquivo, garantindo ao mesmo tempo que cada um tem um nome diferente.

 

GetRndNomeArq usa vbscript da função Timer para gerar o nome do arquivo que são numéricos e podem ou não ter zeros à esquerda. A extensão do arquivo é especificadas e deve incluir a extensão e caracter ".". Uma extensão válido seria ". txt".

 

Um exemplo dos nomes dos arquivos criados pela função pode ser:

0234254326346346.TXT (se você especificou uma extensão .TXT)

 

 

sintaxe:

 

string = GetRndNomeArq(dotextension)

exemplo:

 

<%
dim fileName

fileName = GetRndNomeArq(".txt")
%>

code:

 

<%
function GetRndNomeArq(byval dotextension)
	randomize
	getfilename = _
		clng(clng(timer * Rnd(timer)) + timer) & _
		clng(clng(timer * Rnd(timer)) + timer) & _
		clng(clng(timer * Rnd(timer)) + timer) & dotextension
end function
%>

[augustoclaro 2]

muito bom o script, gostei muito!