| Pregunta: | 34480 - SIZE DE CARPETA EN VFP |
| Autor: | ERWIN LUNA |
| NECESITO HACER UN PROGRAMA QUE CUANDO ESTE EN EJECUCION Y YO ESTE EN UNA VENTANA CUALQUIERA ,Y ME POCISIONE EN UNA CARPETA ME DE SU TAMAÑO O SI ESCOJO VARIAS CARPETAS O ARCHIVOS IGUAL ME DE EL TAMAÑO TOTAL LO QUE DESEO ES SI HABRA UN COMANDO QUE ME DETERMINE EL SIZE DE LA CARPETA DE ANTEMANO GRACIAS | |
| Respuesta: | jose g. Samper |
| te envio este codigo espero que te sirva, solo necesitas win98 o superior cualquier duda me escribes cNameFile='r:\aplicaci' If TYPE("oFileSystemObject") <> "O" OR ISNULL(oFileSystemObject) Local oFileSystemObject oFileSystemObject = CREATEOBJECT("Scripting.FileSystemObject") Endif Local oFile, cName cName = "" If oFileSystemObject.folderExists(cNameFile) oFile = oFileSystemObject.Getfolder(cNameFile) csize=oFile.Size Endif wait windows 'el tamaño de la carpeta es : '+alltrim(str(round(csize/1024,0))) +' mb' | |