my $file = Win32::GetShortPathName($scpfile->Text());
$file =~ /(.*\\).*$/;
print "CD to $1\n";
Win32::SetCwd($1);