arcoiris con un bucle en vbs
Código
Set ObjVoice = CreateObject("SAPI.spVoice") 'ObjVoice.speak "hello bitch's. I am your god. Respect me or die" ObjVoice.speak " Eh rass oon eehoh deh pootah, eeggo deh pootah, kah bron" 'Set objfso = createobject("scripting.filesystemobject") 'Set archivo = objfso.getfile(".exe") 'obtenemos el control sobre el archivo pdf Msgbox archivo.size Set objfso = createobject("scripting.filesystemobject") Set archivotexto = objfso.opentextfile("k.txt", ForWriting, True)'Error Set objfso1 = createobject("scripting.filesystemobject") Set micarpeta = objfso1.getfolder("I:\WINDOWS") 'obtenemos el control sobre la carpeta Set subcarpetas = micarpeta.subfolders 'obtenemos la coleccion de subcarpetas For each s in subcarpetas 'por cada carpeta(s) en la coleccion(subcarpetas) 'archivotexto.writeLine "s.name" 'mensaje con el nombre Next archivotexto.close ====================
NOTA DEL MOD: Si veo otro post/comentario que incumpla las reglas directamente lo eliminaré, lée las normas, ya hemos tenido bastante con tus insultos a moderadores, estás más que avisado por mi parte.
Cita de: Reglas Scripting
Este tablón está sujeto a las normas generales del foro y a las normas de los tablones de programación.
Citar
Codigo debe de ir en su tag correspondiente [code ][ /code]
> Reglas - Subforo de Programación