COMO PUEDO MODIFICAR UNA DIRECCION DE UN FOLDER DESDE VISUAL BASIC 6.0

Iniciado por pac_and_marina, 5 Septiembre 2005, 07:34 AM

0 Miembros y 1 Visitante están viendo este tema.

pac_and_marina

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

dos_222222

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
El VerDaDero HacKer NunCa Muere Baja A lOs InfierNOs Se rEorGaNIzA y ConTRatAcA.....

programatrix

Y también recuerda que no hay nadie sordo y q no se a que viene tantas mayúsculas  ;)

Slasher-K


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.



A la reina de las profundidades que cuida los pasos de una sombra en la noche :*