Campo archivo ( Si existe archivo o no )

[Muzztein]

'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''
' La rutina principal
' Primero, crea un directorio de prueba, junto con algunas subcarpetas
' y archivos. Entonces, vuelca alguna información sobre las unidades
' de disco disponibles y sobre el directorio de prueba y después,
' limpia todo de nuevo.
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''

Sub Main
Dim FSO

' Configurar datos globales.
TabStop = Chr(9)
NewLine = Chr(10)

Set FSO = CreateObject("Scripting.FileSystemObject")

If Not BuildTestDirectory(FSO) Then
Print "El directorio de prueba ya existe o no se puede crear. No puede continuar."
Exit Sub
End If

Print GenerateDriveInformation(FSO) & NewLine & NewLine
Print GenerateTestInformation(FSO) & NewLine & NewLine
Print GetLyrics(FSO) & NewLine & NewLine
DeleteTestDirectory(FSO)

End Sub