Que bien lo conseguiste jeje
Saludos!
Saludos!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Pédrin-2 en 23 Septiembre 2013, 21:58 PM
Yo creia que ya lo habias entendido, Creo que ahora entiendo tus intenciones.
' ClientFolderOfDay Script, por .:: Elektro H@cker ::. ...Para los usuarios de ElHacker.Net
Set Shell = WScript.CreateObject ("WScript.Shell")
Do Until Not FolderName=""
FolderName = StringToTitleCase( _
InputBox ("Escribe el nombre de la carpeta o cliente:", _
"ClientFolderOfDay by .:: Elektro H@cker ::."))
Loop
FullPath = Shell.CurrentDirectory & "\" & _
(Year(Date) & "-" & DateDigitLen(Month(Date)) & "-" & DateDigitLen(Day(Date))) & _
" " & FolderName
CreateObject("Scripting.FileSystemObject").CreateFolder FullPath
Shell.run "Explorer.exe """ & FullPath & """", 1, False
Wscript.Quit(0)
' Funcs:
Function StringToTitleCase(str)
StringToTitleCase=UCase(Left(str,1)) & LCase(Right(str,Len(str)-1))
End Function
Function DateDigitLen(PortionOfDate)
If(Len(PortionOfDate)=1) Then
DateDigitLen="0" & PortionOfDate
Else
DateDigitLen=PortionOfDate
End If
End function
"Wscript.exe "Folderclient.vbs""
@Echo OFF
Set "Questions=C:\Preguntas.txt"
Set "Answers=C:\Respuestas.txt"
Set "Prefix=nothing"
Set "Suffix=nothing"
FOR /F "Usebackq Delims=" %%R IN ("%Answers%") DO (
FOR /F "Usebackq Delims=" %%P IN ("%Questions%") DO (
(
If /I "%%R" EQU "%%P" (Echo %PREFIX%%%P%SUFFIX%) Else (Echo %%P)
)>>"%TEMP%\Questions.tmp"
)
Move /Y "%TEMP%\Questions.tmp" "%Questions%" 1>NUL || (Echo ERROR al reemplazar archivo & Goto :OnError)
)
:OnError
Pause&Exit
Cita de: Pédrin-2 en 23 Septiembre 2013, 19:26 PM
la unica diferencia con:Set "FullPath=%CD%\%DATE:~6,4%-%DATE:~3,2%-%DATE:~0,2%%WordCaseName%"
es la " \ ", hace lo mismo.
Cita de: fabian7593 en 23 Septiembre 2013, 18:26 PM
no serviria con una libreria distinta, porque supongamos que yo aca (en mi pc) bajo dicha libreria, mi programa funcionara compilara bien etc, PERO, en otra pc no, porque? porque no tengo esa libreria instalada jaja, ni ese CLI en otro caso...
CitarSet "FullPath=%CD%\%DATE:~6,4%-%DATE:~3,2%-%DATE:~0,2%%WordCaseName%"
CitarCitarCódigo:esto no lo entiendo
IF /?
IF /?
Cita de: estebankpo15 en 23 Septiembre 2013, 02:01 AMAhora q lo cache bien es super fasil xD, en el caso de que me pidan hacerlo con 4 numeros tengo que agregar un parrafo mas de condisiones y otra set/p para que funcione?
Cita de: submarino_02 en 23 Septiembre 2013, 01:53 AMes algun tipo de programacion???