创建文件

Public Function cmd(ByVal argm As String) As Boolean
 '开始创建文件
 Dim p As Process =  New Process()
 p.StartInfo.FileName = /"cmd.exe/"
 p.StartInfo.UseShellExecute = False
 p.StartInfo.RedirectStandardInput = True
 p.StartInfo.RedirectStandardOutput = True
 p.StartInfo.RedirectStandardError = True
 p.StartInfo.CreateNoWindow = True
 
 Try
 p.Start()
 p.StandardInput.WriteLine(argm)
 p.StandardInput.WriteLine(/"exit/")
 p.StandardOutput.ReadToEnd()
 p.Close()
 Return True
 Catch
 Return False
 End Try
End Function