Ver la Versión Completa : crear una carpeta/directorio desde delphi
eyscom
27-03-2004, 02:45:46
Hola a todos creo que lo que estoy preguntando es muy elemental pero no puedo crear una carpeta en el disco duro desde mi aplicacion delphi. Gracias ;)
jafl1965
27-03-2004, 03:11:02
De la Unidad SysUtils
If not DirectoryExists('Mi Dir') then
CreateDir('Mi Dir') ;
acertij022
29-03-2004, 15:42:29
Tambien podes usar el comando MKdir()
If not DirectoryExists('Mi Dir') then
MKdir('Mi Dir') ;
:D
MeTaL
05-04-2004, 05:57:42
Algo interesante Seria.....
var Archivo:String;
begin
Archivo:='Midir';
if createdir(archivo) = false then begin
label1.caption:='Carpeta '+archivo+' Creada Con Exito';
End else
label1.caption:='No se Pudo Crear Carpeta '+archivo;
end.
JoseSagas
22-06-2012, 01:26:15
como se haria para que la carpeta saliera en un lugar especifico? por ejemplo quiero que salga en el desktop de la maquina
ecfisa
22-06-2012, 02:59:17
como se haria para que la carpeta saliera en un lugar especifico? por ejemplo quiero que salga en el desktop de la maquina
Hola Jose.
MkDir(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + 'Nombre_De_Tu_Carpeta');
Saludos.
ecfisa
22-06-2012, 05:15:49
Hola de nuevo.
Perdón, recién me doy cuenta que estamos en el foro API de Windows, entonces sería:
var
Nombre: string;
begin
Nombre:= 'Nombre_De_La_Carpeta';
CreateDirectory(PChar(GetEnvironmentVariable('USERPROFILE') + '\Desktop\' + Nombre), 0);
...
Saludos.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.