Pues la cuestión es que estaba aprendiendo VBscript.
Pero como el programa que mas uso es el blender, pensé en meterme con python.

El tema es, he estado leyendo manuales de python, pero no veo la equivalencia de el msbox o el inputbox de VBscript.
¿Se pueden generar ventanas para entrar y recoger datos en python?
Y si la respuesta es afirmativa.
Algún link donde se hable del tema.
Yo por el momento no he encontrado ninguno y un amigo que programa en python dice que se puede.
Un saludo y gracias por vuestro tiempo.

Pues este script me funciona correctamente, hasta que al final quiero borrar ficheros txt creados por el scrip y que al final no me sirven.
Pero me da un error y me dice que:
permission denied
800A0046
Porque no tengo permiso para borrarlo cuando los he creado los he cerrado.

Despues con el mismo codigo pero en un script diferente me los borra sin problemas.

Set fso = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(0, "SELECCIONEU EL DIRECTORI ORTOFOTO:", 0, 0) 
If objFolder Is Nothing Then
MsgBox("L'aplicacio s'ha cancelat")
 Wscript.Quit
 End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'CREAR UN ARCHIVO txt en donde se encuentran las ortofotos
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set var = fso.CreateTextFile(objFolder.self.path & "\variableobjFolder.self.path.txt", True)
var.writeline(objFolder.self.path)
var.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'crear un txt para despues editarlo
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set ar = fso.CreateTextFile(objFolder.self.path & "\ortofotos-que-faltan.txt", True)
ar.writeline(objFolder.self.path)
ar.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'leer la ruta donde se encuentran las ortofotos
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set ar = fso.OpenTextFile(objFolder.self.path & "\variableobjFolder.self.path.txt", 1)
linea=ar.Readline
pos=instrrev(linea,"\")
nlinea=left(linea,pos-1)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'crear u txt con todas las ortos del bloque a partir de los ficheros *ferfull
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set car = fso.GetFolder(nlinea)
 Set listadoORTOFOTOS= fso.CreateTextFile(objFolder.self.path & "\llistat-ortofotos.txt", True)
 For Each archivo in car.Files
 If right(archivo.name,12)="_FerFull.bat" then
 listadoORTOFOTOS.writeline (archivo.name)
 End If 
 Next
 listadoORTOFOTOS.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'comparar el fichero llistat-ortofotos con las ortos que hay en el directorio ortofoto
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set var = fso.OpenTextFile(objFolder.self.path & "\llistat-ortofotos.txt", 1)
Do
linea=var.Readline
nombreArchivo=mid(linea,1,7)
FileExists=fso.FileExists (objFolder.self.path& "\" &nombreArchivo& "_S.rf") 
if FileExists=FALSE Then
Set arc = fso.GetFile (objFolder.self.path & "\ortofotos-que-faltan.txt") 
Set arc = arc.OpenAsTextStream(8)
arc.Writeline nombreArchivo & "_S.rf"
End if 
loop until var.AtEndOfStream=True
arc.close
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'abrir el fichero ortofotos-que-faltan.txt
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
msgbox ("Aquestes son les ortofotos que no es tronben al directori indicat") 
ws.Run (objFolder.self.path & "\ortofotos-que-faltan.txt") 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'borara los ficheros intermedios
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
fso.DeleteFile objFolder.self.path & "\llistat-ortofotos.txt", True
fso.DeleteFile objFolder.self.path & "\variableobjFolder.self.path.txt", True

Nota del mod: recuerda las etiquetas

En este script doy la dirección de una carpeta y lo que necesito es la direccion de la carpeta anterior a la ultima.
Mexplico: doy la dirección:
L:\programacion\FICHEROS-FERFULL\ortofoto
y quiero la dirección:
L:\programacion\FICHEROS-FERFULL
como no se como hacerlo pues he creado un txt con la dirección y despues quiero leer la linea de derecha directorioFerFull=right(linea,9)="\ortofoto"

Pero mi sorpresa es que utilizando un msgbox.
 msgbox (directorioFerFull)
el msgbox me devuelve true....y no:
 L:\programacion\FICHEROS-FERFULL
que es lo que yo esperaba.
Pues eso hay alguna forma de hacerlo mas facil y si no es el caso porque no me lee la linea de texto y me devuelve true.



Aqui dejo el trozo del script.
Un saludo a todos

Por ejemplo, en vez de decirle al msg.popup el tiempo que tiene que estar visible,hay alguna forma de decirle que este visible, de una accion a otra.

copiar ficheros
msg.popup "Copiando ficheros",
aplicar accion a ficheros

Un saludo y gracias por vuestro tiempo

Pues tengo unos cuantos vbScript en los que utilizo el inputbox, para entrar las direcciones necesarias para el script.
Y hoy mismo he leído sobre el CommonDialog.

Por lo que he leído y probado esta herramienta solo se puede utilizar para seleccionar ficheros. ¿hay alguna forma de utilizarlo para seleccionar directorios?.
En el manual que he leído hablaban sobre el parámetro flags.Ppero no explicaban mucho.
¿Puede ser que con este parámetro pueda modificar el CommonDialog, para tener mas funcionalidades?

Antes de nada agradecer a todos los integrantes del foro,por toda la información y conocimiento que he podido utilizar, para poder ir aprendiendo un poco de VBScript.

Pues tengo un problema, en medio de un script que estoy haciendo, no se como renombrar un grupo de ficheros.

Si no a quedado muy clara la cosa leete la parrafada de abajo...tampoco es tan larga.

Los ficheros son un un nombre de 8 dígitos(que son numeros)+_100+ extension(.msk)

Ejemplo:80123451_100.msk
              80123452_100.msk
              80123453_100.msk
              80123454_100.msk
              80123455_100.msk

 La cuestión que renombrar con move es muy fácil:

Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile “c:\80123451_100.msk”, “80123451_100.msk”

Pero lo que quiero es quitar *_100* de todos los ficheros.
Sin tener que escribir la relación de cada uno.
Porque normalmente lo tengo que hacer con unos 500 ficheros.
              80123451_100.msk       80123451.msk
              80123452_100.msk       80123452.msk
              80123453_100.msk       80123453.msk
              80123454_100.msk       80123454.msk
              80123455_100.msk       80123455.msk

Lo que pensaba era utilizar un for each:


Set fso = CreateObject("Scripting.FileSystemObject")
Set carpeta = fso.GetFolder(camino)
For Each archivo in Carpeta.Files
if len(Archivo.name)=16  then
fso.MoveFile archivo.path,  archivo.name
end if
next
el problema es que no se como filtrar los nombres para que me sustituya el _100 por nada.

Vamos como se hace en msdos.

Rename 8???????_100.msk 8???????.msk

Es que ya no se que mas probar.

¿Porque la opción replace solo se utiliza para reemplazar texto? ¿No?

¿O se puede utilizar para reemplazar dígitos de un nombre de archivo?

Estoy pensando en que el script me haga un bath automáticamente y ejecutarlo para renombrar los ficheros.
Pero creo que es un poco trampa.
Quiero aprender con vbscript y no hacer un apaño con un bath.

Un saludo a todos y gracias por vuestro tiempo.