Tag Archives: Scripting.FileSystemObject

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 →