FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Como en un FileListBox cambiar el nombre de un archivo
Buenos dias amigos.
Necesito con un Popup menu sobre un FileListBox, poner una opcion para cambiar el nombre. El problema es que no encuentro la función que me permita hacerlo. Si alguien sabe como hacerlo, le agradeceré su respuesta eternamente. Gracias. |
#2
|
||||
|
||||
Hola,
Nota: Revisa cuanto quieras el código. Ten en cuenta que se hizo en un rato y que pueden cambiarse acaso algunas cosas, optimizarse otras y adaptar buena parte a tus necesidades y/o preferencias, cuando no arreglar los posibles desperfectos que contenga el código. En todo caso creo que la idea de cómo implementar el asunto te la he dado: merezco las gracias eternas... una pena que eso sea algo imposible... o quizá no... |
#3
|
||||
|
||||
Hola,
Luego releo el Hilo y me doy cuenta de que buscabas una respuesta para C++ Builder... no sé en qué estoy pensando, la verdad... ¿es preciso traducir el código o más o menos coges el hilo de lo que en el mismo se lleva a cabo? |
#4
|
|||
|
|||
Gracias Dec, pero recuerda que es Builder C++ 6.0
te agradecería si lo "tradujeras" con tu experiencia en los dos lenguajes, te confieso que aunque es casi lo mismo, para mí es un poco dificil, convertir a este lenguaje. Gracias. |
#5
|
||||
|
||||
Hola,
Cita:
Código:
//--------------------------------------------------------------------------- void __fastcall TForm1::PopupMenu1Popup(TObject *Sender) { itemRenombrarArchivo->Enabled = (FileListBox1->ItemIndex != -1); } //--------------------------------------------------------------------------- void __fastcall TForm1::itemRenombrarArchivoClick(TObject *Sender) { int i = -1; AnsiString dir, nombreAntiguo, nuevoNombre; i = FileListBox1->ItemIndex; if(i == -1) return; dir = IncludeTrailingPathDelimiter(FileListBox1->Directory); nombreAntiguo = dir + FileListBox1->Items->Strings[i]; nuevoNombre = InputBox("Renombrar archivo", "Nuevo nombre:", ""); if(nuevoNombre == "") return; nuevoNombre = dir + nuevoNombre + ExtractFileExt(nombreAntiguo); RenameFile(nombreAntiguo, nuevoNombre); FileListBox1->Update(); } //--------------------------------------------------------------------------- |
|
|
|