Tag Archives: FSO
Script simples de criação de arquivos .XML, todo comentado <% ArquivoXML = "criado.xml" 'adicionando um nome no arquivo Set FSO = CreateObject("Scripting.FileSystemObject") 'criando o objeto FSO Set Linhas = FSO.CreateTextFile(Server.MapPath(ArquivoXML), True) 'salvando o arquivo no servidor através do método "CreateTextFile" 'gerando linas Linhas.WriteLine("<?xml version=""1.0""?>") Linhas.WriteLine("<container>") Linhas.WriteLine("<tag_01>TEXTO DA TAG 01</tag_01>" ) Linhas.WriteLine("<tag_02>TEXTO DA TAG 02</tag_02>" ) Linhas.WriteLine("<tag_03>TEXTO DA TAG 03</tag_03>" ) Linhas.WriteLine("</container>") 'destruíndo os objetos Linhas.Close Set Linhas = Nothing %> Pode ser adicionado um LOOP ou simplismente adicionar com o …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais
Mais um randomize de Imagens adaptado para as necessidade básicas <%@ Language="VBScript" %> <% Option Explicit %> <% Function RandomDeImagens(strPath,strDefault) On Error Resume Next Randomize Timer Dim ObjDeFSO, objFolder, ObjDaPasta, ObjPasta02 Dim StrPastas, StrImagens, StrBase, StrPasta Const strValid = ".gif.jpg.png" If Right(strPath,1) <> Chr(47) Then strPath = strPath & Chr(47) StrBase = Server.MapPath(strPath) Set ObjDeFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = ObjDeFSO.GetFolder(StrBase) Set ObjDaPasta = objFolder.Files For Each ObjPasta02 In ObjDaPasta StrPasta = LCase(ObjPasta02.Name)If …
Continue Lendo
Agência OFF, desenvolvimento de soluções web para as Agências Digitais