31 lines
1.4 KiB
Plaintext
31 lines
1.4 KiB
Plaintext
'
|
|
' Este script debe ser usado en windows 95, 98 y Me para compilar la documentación.
|
|
' MakedokNT.bat no funcionará porque el MSDOS de win9x no usa nombres largos por
|
|
' defecto :P y Doku requiere nombres largos.
|
|
' Primero hay que ejecutar este script, que rastreará los .dok que haya en el
|
|
' directorio actual y creará un makedok95.bat que llama a Sion Doku usando nombres
|
|
' largos. Entonces ejecutamos makedok95.bat y Doku entrará en acción.
|
|
' Me hubiera gustado simplificar un poco más el proceso, pero no puedo llamar a
|
|
' Doku desde el windows scripting host (menuda mierda, dicho sea de paso. Es en
|
|
' estos momentos cuando más echo de menos al Bash o al AppleScript).
|
|
'
|
|
' Er_Makina
|
|
'
|
|
|
|
dim fs,f,bat,fil,c
|
|
Set fs=CreateObject("Scripting.FileSystemObject")
|
|
Set f=fs.getfolder(".").files
|
|
set bat=fs.opentextfile("makedok95.bat",2,true)
|
|
bat.write ":: makedok95.bat generado por makebat95.vbs" & vbcrlf
|
|
bat.write ":: Ejecuta este script para compilar la documentación." & vbcrlf
|
|
bat.write ":: Si añades o quitas un documento, ejecuta makebat95.vbs para actualizar el bat." & vbcrlf & vbcrlf
|
|
c=0
|
|
for each fil in f
|
|
if lcase(fs.getextensionname(fil.path))="dok" or lcase(fs.getextensionname(fil.path))="doku" then
|
|
bat.write "..\doku.exe " & fil.name & vbcrlf
|
|
c=c+1
|
|
end if
|
|
next
|
|
bat.close
|
|
msgbox "Encontrados " & c & " fichero(s)." & vbcrlf & "Ahora ejecuta makedok95.bat y la magia de Doku hará el resto... ;)"
|