Firewall is easy, see the code below.
For permissions on the folder, see my NTFSPerms UDF.

 Code:
Dim $objFirewall, $objPolicy, $objPort, $colPorts
$objFirewall = CreateObject("HNetCfg.FwMgr")
$objPolicy = $objFirewall.LocalPolicy.CurrentProfile

$objPort = CreateObject("HNetCfg.FwOpenPort")
$objPort.Port = 9021
$objPort.Protocol = 6 ;TCP
$objPort.Name = "PP_FTP"
$objPort.Enabled = 1

$colPorts = $objPolicy.GloballyOpenPorts
$rc = $colPorts.Add($objPort)