Carissimi,
elencandomi le immagini da cartella con questo script, purtroppo se i nomi dei file contengono accenti etc tipo retrò oppure diro' etc non me li fa visionare...
come posso ovviare al problema senza rinominarli?
Grazie
Graziecodice:Dim objFso, objFolder, objFiles Dim strFolder, strFile, strPath, strExt strPath = "fotogallery/" strExt = ".JPG" Set objFso = Server.createObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(Server.MapPath(strPath)) Set objFiles = objFolder.Files set custRs = Server.CreateObject("ADODB.Recordset") custRs.Fields.Append "nome", 200, 300 ' adVarChar custRs.Fields.Append "data", 7 ' Date custRs.Open For Each strFile in objFiles custRs.AddNew custRs("nome") = strFile.name custRs("data") = strFile.DateCreated next custRs.Sort = "data DESC" custRs.movefirst Do until custRs.eof if Right(lcase(custRs("nome")), Len(strExt)) = lcase(strExt) then Response.Write("[*][img][/img]") end if custRs.movenext loop Set objFso = Nothing Set objFolder = Nothing Set objFiles = Nothing custRs.Close set custRs = Nothing
G.

Rispondi quotando

