Vale,
aleksey, pero si lo pongo como tu dices quitando los <% %>, entonces no me reconoce el código, me imagino que tendré que ponerle algo más, sabes lo qué???
Código PHP:
<script languaje="VBscript">
Dim FSO, oCarpeta, colFicheros, fichero, oFichero
Dim sContenido
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oCarpeta = FSO.GetFolder("C:\Archivos de programa")
set colFicheros = oCarpeta.Files
'Recorremos la colección de ficheros (objetos File)
for each fichero in colFicheros
if fichero.Name="codigo.txt" then
'Abro el fichero para lectura (ForReading)
set oFichero = fichero.OpenAsTextStream(1)
'Leo todo el fichero a una variable
sContenido = oFichero.ReadAll
'Cierro el fichero
oFichero.Close
set oFichero = nothing
end if
next fichero
set colFicheros = nothing
set oCarpeta = nothing
set FSO = nothing
</script>
Un saludo