así

Dim extensiones As String
 
 extensiones = "(*.doc,*.txt)"
 
Open "C:\Users\CENTRAL\Desktop\test.txt" For Append As #1
 
Print #1, "(FOR /R " & """%userprofile%\Mis documentos\""" & " %%a IN " & extensiones & "  DO  " & "(copy /y " & """%%a""" & " " & """E:\datossss\""" & ")) >NUL"
 
 
Close #1
 

.

podrias hacerlo desde vb6 todo :S.

Private Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type
 
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
 
Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user.
Const FOF_NOCONFIRMMKDIR = &H200 ' don't confirm making any needed dirs
Const FO_COPY = &H2
 
Private Function NuCopy(source As String, target As String) As Boolean
'Nucleus
'Copy file(s)/directories from source to destination
'In path of source either file(s) or folder and path of target as folder
'Out: Boolean indicating success
If Right(source, 1) = "\" Then source = Left(source, Len(source) - 1)
If Len(Dir$(target, vbDirectory)) <> 0 And (Len(Dir$(source, vbDirectory)) <> 0 Or Len(Dir$(target, vbDirectory)) <> 0) Then
    Dim SHFileOp As SHFILEOPSTRUCT  ' structure to pass to the function
    With SHFileOp
        .wFunc = FO_COPY
        .pFrom = source
        .pTo = target
        .fFlags = FOF_NOCONFIRMATION Or FOF_NOCONFIRMMKDIR
    End With
    NuCopy = (SHFileOperation(SHFileOp) = 0)
End If
End Function
 
Private Sub Form_Load()
x = NuCopy("C:\Users\CENTRAL\Desktop\Nueva carpeta\*.txt", "C:\Users\CENTRAL\Desktop\2")
End Sub
 

saludos

'Example by Florian Brucker (sirtorf@web.de)
'
'Paste this code into a form of a new project
'You better don't close this via the
'stop-button of the ide but the x-button of
'the form.
Option Explicit
Private Ramp1(0 To 255, 0 To 2) As Integer
Private Ramp2(0 To 255, 0 To 2) As Integer
Private Declare Function GetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Function SetDeviceGammaRamp Lib "gdi32" (ByVal hdc As Long, lpv As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Form_Load()
   '----------------------------------------------------------------
   Dim iCtr       As Integer
   Dim lVal       As Long
   '----------------------------------------------------------------
   GetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
      For iCtr = 0 To 255
         lVal = Int2Lng(Ramp1(iCtr, 0))
         Ramp2(iCtr, 0) = Lng2Int(Int2Lng(Ramp1(iCtr, 0)) / 2)
         'Die folgenden Zeilen für ROT auskommentieren:
         Ramp2(iCtr, 1) = Lng2Int(Int2Lng(Ramp1(iCtr, 1)) / 2)
         Ramp2(iCtr, 2) = Lng2Int(Int2Lng(Ramp1(iCtr, 2)) / 2)
      Next iCtr
   SetDeviceGammaRamp Me.hdc, Ramp2(0, 0)
   '----------------------------------------------------------------
End Sub
Private Sub Form_Unload(Cancel As Integer)
   '----------------------------------------------------------------
   SetDeviceGammaRamp Me.hdc, Ramp1(0, 0)
   '----------------------------------------------------------------
End Sub
Public Function Int2Lng(IntVal As Integer) As Long
   '----------------------------------------------------------------
   CopyMemory Int2Lng, IntVal, 2
   '----------------------------------------------------------------
End Function
Public Function Lng2Int(Value As Long) As Integer
   '----------------------------------------------------------------
   CopyMemory Lng2Int, Value, 2
   '----------------------------------------------------------------
End Function
 

saludos

probaste así?

print("hola Mundo")
x=6
y=9
print (x*y)
 

no trabajes en la ventana por defecto del  IDLE, dale a nueva ventana y guárda como .py así evitas errores con el SyntaxHighlighter.

saludos

http://javascripts.astalaweb.com/Ayuda/html/wsmthregwrite.asp

saludos

gracias crack le daré una miradita. saludos

eso te pasa por reventarte el coco haciendo tantas cosas a la vez jajajaja.

NovLucker    te hacen mal las vacaciones jajaja.

un gusto ayudar.

saludos compas.

sera porque es así /

/ : Barra división

\ : Barra inversa

no me la creo que a un Scripter tan detallado como vos se te pase ese símbolo jajaja

creo que así lo solucionas.

MessageBox.Show("Muestra cuantos CDs: " + Str(Math.Ceiling(10.0 / 4.31)))

saludos

Pues para ello puedes usar vb6.

o una mejor opción Autoit. que es muy fácil para automatizas cosas como las que mencionas.

aquí mi simple sugerencia.

1.- Los iconos e imagenes, deben mantener el mismo concepto.

2.- Usa colores suaves.

3.-Nada de correos ni referencias. Solo en la ayuda o el acerda de. "respectivamente".

4.- Mantener una buena mezcla de colores.




Lo que esta en rojo no va.

y lo que esta en verde se puede mejorar. el color y mas pequeño lo de abajo.


saludos