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
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
Y también recuerda que no hay nadie sordo y q no se a que viene tantas mayúsculas ;)
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.