that primer is great, thanks for the help job all done [Smile]

i used

code:
  
break on
$basedir = "H:\"
$Name = Dir("$basedir")
While $Name <> "" and @ERROR = 0
  If ($Name <> ".") And ($Name <> "..") And (GetFileAttr($basedir+"\"+$name) & 16)
    shell '%comspec% /c net share "$name$" /cache:no'
  EndIf
  $Name = Dir()
Loop
is this the best way? i know it worked i'm just trying to improve my over call code so it's tight

Regards

Pete