s.Initialize
s.Append("powershell -file C:\GeneraPDF.ps1 ").Append(h5).Append(" ").Append(Dir).Append("/").Append(FileName.ToString)
Dim shl As Shell
shl.InitializeDoNotHandleQuotes("shl", "cmd", Array("/C", s.ToString))
shl.Run(20000)
StartMessageLoop