Disculpe, he entrado pocas veces en este foro, buscare las normas

Estoy usando REG DELETE en un BAT, y en algunas lineas no se aplica, gracias

echo on
 
set extension=lsc
 
if %extension% == nul exit
 
REG ADD HKEY_CURRENT_USER\Software\Classes\%extension%_portable\shell\open\command /v "" /t REG_EXPAND_SZ /d "%homedrive%\Portables instalados\LogoSoft\LogoSoft.exe" %1 /F
REG ADD HKEY_CLASSES_ROOT\%extension%_portable\DefaultIcon /v "" /t REG_EXPAND_SZ /d "%homedrive%\Portables instalados\LogoSoft\LogoSoft.exe" /F
REG ADD HKEY_CURRENT_USER\Software\Classes\.%extension% /v "" /t REG_SZ /d %extension%_portable /F
 
pause>nul
 
rem borrar
 
REG DELETE HKEY_CLASSES_ROOT\%extension%_portable\DefaultIcon /F /VA
REG DELETE HKEY_CURRENT_USER\Software\Classes\%extension%_portable\shell\open\command /F /VA
REG DELETE HKEY_CURRENT_USER\Software\Classes\.%extension% /F /VA rem no borra?
 
REG DELETE HKEY_CLASSES_ROOT\.%extension% /F /VA rem no borra?
REG DELETE HKEY_CLASSES_ROOT\%extension%_portable /F /VA
REG DELETE HKEY_CURRENT_USER\Software\Classes\.%extension% /F /VA
 
REG DELETE HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.%extension% /F /VA rem no borra?
REG DELETE HKEY_LOCAL_MACHINE\SOFTWARE\Classes\%extension%_portable /F /VA rem no borra?
 

como podria hacer para cojer el nombre de una carpeta,? gracias

me gustaria saber como hacer una barra de progreso mientras se copian unos archivos, gracias

En Windows Vista/7 la carpeta AppData esta oculta y a partir de aí meda error .VBS

ObjCopy.CopyFile "festo\programas\*", "C:\Users\"+UserName+"\AppData\Roaming\Microsoft\Windows\Start Menu\Programs", true

Mi idea seria cambiar los atributos antes y despues de esta linea, ¿que me aconsejan? gracias

Dim objUrl, objUser, objCopy, Ruta
 
Set objUrl = CreateObject("Scripting.FileSystemObject")
Set objUser = CreateObject("WScript.Network")
Set objCopy = createobject("scripting.filesystemobject")
 
UserName = objUser.UserName
 
If Not objUrl.FolderExists("c:\festo") Then
  MsgBox "Instalar", , "Festo"
  ObjCopy.CopyFolder "festo/c", "c:/festo", true
 
  If objUrl.FolderExists("C:\Users\"+UserName+"\Desktop") Then
    ObjCopy.CopyFile "festo\programas\*", "C:\Users\"+UserName+"\Desktop", true
    MsgBox "Instalado"
  Else
    ObjCopy.CopyFile "festo\archivos\Festo\*.lnk", "C:\Documents and Settings\"+UserName+"\Escritorio", true
    ObjCopy.CopyFolder "festo\archivos", "C:\Documents and Settings\"+UserName+"\Menú Inicio\Programas", true
    MsgBox "Instalado", , "Festo"
  End If
 
End If
 

gracias tambien pense en el 555

pero al final lo hice solo con 4 nand
NAND > condensador > NAND -> 6seg
NAND > condensador > NAND -> 3seg
de tal forma que entre el segundo 3 y 6 la carga quede alimentada
re-alimentando el segundo NAND al primero, usando los segundos NAND cono NOT, y usando las dos entradas libres como disparo por pulsador, elpulsador mete negativo, y el interruptor mete positivo mediante resistencia

de todas formas en el pasado programara un pic, me gustaría intentarlo de nuevo, ¿que necesito para intentarlo?

serian dos entradas, un pulsador y un interruptor que para hacer el disparo han de estar ambos cerrados, alimentación y carga a 12V, y pasados 3 segundos que la carga se alimente 3 segundos

a partir de una señal de 5 voltios estoy intentando crear otra señal de 5 voltios, gracias por la ayuda

pulsación en el segundo 0, salida entre el segundo 4 y 7

 0 1 2 3  4 5 6 7 8      Segundos
 |  |  |  |  |  |  |  |  |
__
|  |____________     Señal de entrada
               _____
_______|         |__    Señal de salida