Necesito el código PHP para saber el espacio web libre, en ASP
Hola,
Necesito el código PHP para saber el espacio web libre, en ASP es:
Set fso=Server.CreateObject("Scripting.FileSystemObject")
sParentFolder="/"
Set Folder=fso.GetFolder(Server.MapPath(sParentFolder))
Set collFolder=Folder.subFolders
iFolderCount=collFolder.count
set collFolder=nothing
set collFiles=Folder.files
iFileCount=collFiles.count
set collFiles=nothing
If left(pthFolder,1)="/" or left(pthFolder,1)="\" then pthFolder=Mid(pthFolder,2)
If len(pthFolder)>0 and right(pthFolder,1)<>"/" and right(pthFolder,1)<>"\" then _
pthFolder=pthFolder&"/"
If (FileAt+iFilesPerPage-1)>iFileCount then
LastFile=iFileCount
else
LastFile=FileAt+iFilesPerPage-1
end if
If LastFile=0 then FileAt=0
if Folder.Size > 1024 * 1024 then
FolderSize=Cint(Folder.Size/(1024*1024)) & " Mb"
elseif Folder.Size > 1024 then
FolderSize=Cint(Folder.Size/1024) & " Kb"
else
FolderSize=Folder.Size & " bytes"
end if
Pues quiero algo parecido pero en PHP
Necesito el código PHP para saber el espacio web libre, en ASP es:
Set fso=Server.CreateObject("Scripting.FileSystemObject")
sParentFolder="/"
Set Folder=fso.GetFolder(Server.MapPath(sParentFolder))
Set collFolder=Folder.subFolders
iFolderCount=collFolder.count
set collFolder=nothing
set collFiles=Folder.files
iFileCount=collFiles.count
set collFiles=nothing
If left(pthFolder,1)="/" or left(pthFolder,1)="\" then pthFolder=Mid(pthFolder,2)
If len(pthFolder)>0 and right(pthFolder,1)<>"/" and right(pthFolder,1)<>"\" then _
pthFolder=pthFolder&"/"
If (FileAt+iFilesPerPage-1)>iFileCount then
LastFile=iFileCount
else
LastFile=FileAt+iFilesPerPage-1
end if
If LastFile=0 then FileAt=0
if Folder.Size > 1024 * 1024 then
FolderSize=Cint(Folder.Size/(1024*1024)) & " Mb"
elseif Folder.Size > 1024 then
FolderSize=Cint(Folder.Size/1024) & " Kb"
else
FolderSize=Folder.Size & " bytes"
end if
Pues quiero algo parecido pero en PHP
1 respuesta
Respuesta de manoloweb
1