Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: pac_and_marina en 5 Septiembre 2005, 07:34 am



Título: COMO PUEDO MODIFICAR UNA DIRECCION DE UN FOLDER DESDE VISUAL BASIC 6.0
Publicado por: pac_and_marina en 5 Septiembre 2005, 07:34 am
NECESITO LA AYUDA PARA PODER MODIFICAR UN NOMBRE DE UN FOLDER DESDE VISUAL BASIC 6.0 NO ENCUENTRO LA FUNCION POR FAVOR LA NECESITO ;D


Título: Re: COMO PUEDO MODIFICAR UNA DIRECCION DE UN FOLDER DESDE VISUAL BASIC 6.0
Publicado por: dos_222222 en 5 Septiembre 2005, 18:37 pm
recuerda que puedes ejecutar comandos propios del DOS desde vb comoel REN para renombrar archivos para asegurarte que el cambio de nonmbre sea efectivo la carpeta no debe estar en uso
mira este codigo de una web

Option Explicit

Private Const PROCESS_QUERY_INFORMATION = &H400
Private Const STILL_ACTIVE = &H103
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess&, ByVal bInheritHandle&, ByVal dwProcessId&) _
As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" _
(ByVal hProcess As Long, lpExitCode As Long) _
As Long

Sub EsperarShell(sCmd As String)

Dim hShell As Long
Dim hProc As Long
Dim codExit As Long

' ejecutar comando
hShell = Shell(Environ$("Comspec") & " /c " & sCmd, 2)

' esperar a que se complete el proceso
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)

Do
GetExitCodeProcess hProc, codExit
DoEvents
Loop While codExit = STILL_ACTIVE

MsgBox "El comando ha acabado"

End Sub

Private Sub Command1_Click()
EsperarShell (Text1.Text)
End Sub
' espero te funcione


Título: Re: COMO PUEDO MODIFICAR UNA DIRECCION DE UN FOLDER DESDE VISUAL BASIC 6.0
Publicado por: programatrix en 5 Septiembre 2005, 18:55 pm
Y también recuerda que no hay nadie sordo y q no se a que viene tantas mayúsculas  ;)


Título: Re: COMO PUEDO MODIFICAR UNA DIRECCION DE UN FOLDER DESDE VISUAL BASIC 6.0
Publicado por: Slasher-K en 6 Septiembre 2005, 01:43 am
Código:
Name "C:\ViejoNombre" As "C:\NuevoNombre"

Y baja las mayúsculas que es como si estuvieras gritando. La próxima ves borro el post.

Saludos.