vb 历遍进程，把所有进程写到另一个记事本里面

Private Sub Form_Load()
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set ps = objWMIService.ExecQuery("Select * from Win32_Process")
Print " PID"; Tab(6); "映像名称"
For Each p In ps
Print Format(p.Handle, "@@@@"); Tab(6); p.Name
Next
End Sub
这个是在窗体上显示所有进程，我想把它写入记事本，C:\jc.txt
在上面怎么加？
这段代码刚还能运行，可以是现在就不能运行了，给你们上图，还有在输出的时候有PID 和影像名称，能不能只输出进程名，第一行就显示进程名，也没有前面的数字

中间加上这个就好

Open "C:\jc.txt" For Output As #1
For Each p In ps
Print #1, Format(p.Handle, "@@@@"); Tab(6); p.Name
Next

挺简单，就是文件的打开和输入
________________________________
不使用格式就行了，如下：

Open "C:\jc.txt" For Output As #1
For Each p In ps
Print #1, p.Name
Next

另外，可以改成 Click 单击事件触发

全部如下：

Private Sub Form_click()
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set ps = objWMIService.ExecQuery("Select * from Win32_Process")
Print " PID"; Tab(6); "映像名称"
For Each p In ps
Print Format(p.Handle, "@@@@"); Tab(6); p.Name
Next
Open "C:\jc.txt" For Output As #1
For Each p In ps
Print #1, p.Name
Next
End Sub

Private Sub Command1_Click() Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set ps = objWMIService.ExecQuery("Select * from Win32_Process") Open "c:\jc.txt" For Output As #1 Print #1, " PID Name" For Each p In ps Print #1, Format(p.Handle, "@@@@"); Tab(9); p.Name Next Close #1 End Sub

Private Sub Form_Load() Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set ps = objWMIService.ExecQuery("Select * from Win32_Process") Open "c:\jc.txt" For Output As #1 Print #1, "进程名" For Each p In ps Print #1, p.Name Next Close #1 End Sub

那个胡坤只是看到了表面，没有看到深入！！！ dim i as long linfor: for i = 0 to list.listcount - 1 if dir(list.list(i)) = "" then open app.path & "\load.txt" for append as #1 '你刚才用了两个open，把写入的文件又删了 print #1, list.list(i) close #1 list.removeitem i goto linfor '返回重复项，重新计算，因为删除一项以后下面的都变了，所以返回重来 end if next i