Buenas....

Dejo un pequeño script para generar diccionarios de palabras (creado en un rato de ocio), es decir que, en base a un grupo de caracteres y una longitud seleccionada por el usuario, genera un listado de palabras con todas las posibles combinaciones de los caracteres.
Se puede portar facilmente a otros lenguajes como ser perl, python, VB (casi sin cambios), C/C++, etc

La idea de este es que sirva como ejemplo para aquellos que inician con vbs, el code no es para nada difícil, solamente necesita ser leído detenidamente 

Algunas de las funciones utilizadas que pueden resultar desconocidas son:
Lbound: Indica el número de índice más pequeño en un array
Ubound: Indica el número de índice más grande en un array
Cint: convierte a Integer el valor ingresado
Len: indica el largo de una palabra

Código

Set objfso = createobject("scripting.filesystemobject")
Set ToFile = objfso.createtextfile("Dik.txt",True)
 
DicLis = Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z")
Length = Cint(inputbox("Ingrese el numero de caracteres de las palabras","Dictionary",""))
 
DicU = Lbound(DicLis)
DicL = Ubound(DicLis)
 
Complete("")
 
Function Complete(strin)
 
For z = DicU to DicL
word = strin & DicLis(z)
 
If Len(word) = Length then
	ToFile.writeline word
Else
	Complete(word)
End If
 
Next
 
End Function
 
ToFile.close
Msgbox "Proceso Terminado"

Ejemplo:
Longitud: 4 caracteres
Tiempo: 8 segundos
Total de palabras: 456977
P IV 3.0, 1gb de ram

Para agregar más letras, números o símbolos, simplemente hay que modificar el array DicLis

Hay que tener cuidado al probarlo, se debería de elegir un número más bien pequeño como ser 3 o 4, ya que probando con el actual "diccionario" y con palabras de longitud 6, el archivo generado ocupaba 400 mb, son unas 309 millones de palabras y puede tardar bastante (tuve que recurrir a taskkill XD)

El script en si utiliza recursividad para hacer todo el trabajo, de ahí es que ocupe solamente algunas líneas 

Eso es todo, saludos 

P.D: si no lo terminas de entender, ya sabes donde mirar XD

Buenas..

El vbs que comenta Darioxhcx esta aquí,en ese caso servía para eliminar archivos que tuviesen más de 7 días, pero dejo el enlace para que sirva como ejemplo 

Por otro lado dejo otro script para trabajar con carpetas  

FFecha = "10/11/2008"
'Fecha inicial
LFecha = "14/11/2008"
'Fecha final
FCarpeta = "C:\Carpeta\"
'Carpeta origen
ToCarpeta = "C:\Destino\"
'Carpeta destino, incluir \
 
Set Objfso = Createobject("scripting.filesystemobject")
Set FFolder = Objfso.getfolderder(FCarpeta)
 
Set SFFolder = FFolder.subfolders
 
For each S in SFFolder
If datediff("d", FFecha, S.datelastmodified) > 0 and datediff("d",LFecha, S.datelastmodified) < 0 then
	Objfso.movefolder S.path, ToCarpeta
End If
Next

Si lo quieres entender mejor, aquí se explica 

Saludos

Cualquiera de ellas 

• Puede que tu grabadora este mal, pero esto sería la última opción.
• Hay algunos soft de grabación que no graban correctamente los cd de PS2, en mi caso utilizo alcohol y cero problemas
• Por casualidad no te venian archivos para verificar la integridad de las imagenes bajadas (para ver si no ha habido errores en la descarga)
• Se recomienda grabar los cd de PS2 lo más lento posible, al menos a 4x, en mi caso lo hago a 2.7x

Saludos 

Seguramente has bajado el ejecutable Python 2.6 Windows AMD64 installer para 64 bits y tu procesador es de 32 bits.
Debes de bajar el que dice Python 2.6 Windows installer 
Confirma si fue esto lo que ocurrido 

Saludos

De la web oficial....


Saludos

No has intentado con otro reproductor multimedia? Como ser Winamp o VLC Player? Con este último reproduzco cualquier cosa 

Saludos

Si se va a hacer "bien" entonces lo mejor sería borrar solo el archivo al que apunta el autorun.inf, y no todos los que hayan.
Eso se logra con un simple instr y alguna de las funciones para extraer datos como mid, left, etc

Saludos

Las otras pc's en las que funciona tienen win UE 7?, porque si hay algo que he aprendido es a instalar un SO win XP original, y no esos mod que vienen recortados.

Saludos

P.D: que tiene que ver esto con VB? si no se va a tratar la creación de la librería este no es el lugar para el tema

Es una de las propiedades de los elementos de la colección de discos, indica el tipo de disco.

Valor 0 1 2 3 4 5

Tipo Unknown/Desconocido Removable/Removible Fixed/Rígido Network/Red CD-Rom RAM Disk

Si es un 4 por ejemplo, no puedes escribir en él así como así, y da error
Saludos 

Como mejora... si vas a utilizar scripting.filesystemobject deberías de eliminar eso de C:, D:, G:, F: (buscas en todas las unidades) y utilizar drives

Set variable = CreateObject("Scripting.FileSystemObject")
Set unidades = variable.drives
For each u in unidades
Msgbox u.driveletter
Next

Claro está que además sería conveniente utilizar drivetype para evitar intentar borra la lectora 
Saludos