$Object = Win32::OLE->GetObject("IIS://localhost/MSFTPSVC/1/Root/$Pare +ntVirtualDir")||die Win32::OLE->LastError(); $type = "IIsFtpVirtualDir"; $VDir = $Object->Create( $type,"NameOfNewVirtualDir"); $VDir->{AccessRead} = 1; $VDir->{AccessWrite} = 1; $VDir->{Path} = "$PathToYourNewDir"; $VDir->SetInfo();
|
|---|