Código PHP:
<%
dim fs
set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "d:\ftp_gdp\patron","d:\ftp_gdp\probando"
set fs=nothing
Const vbReadOnly = 1
Const vbHidden = 2
'Ocultar todo el contenido
Dim fso2, folderName2
Set fso2 = Server.CreateObject("Scripting.FileSystemObject")
Set folderName2 = fso2.GetFolder("d:\ftp_gdp\probando\")
foldername2.attributes = vbHidden
foldername2.attributes = vbReadOnly
Set fso2 = Nothing
'Ocultar solo una carpeta
Dim fso3, folderName3
Set fso3 = Server.CreateObject("Scripting.FileSystemObject")
Set folderName3 = fso3.GetFolder("d:\ftp_gdp\probando\wfbtrash")
foldername3.attributes = vbHidden
foldername3.attributes = vbReadOnly
Set fso3 = Nothing
%>
Salu2
