dim OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
OpF.close
或是
Using OpF as new io.filestream(OpenFileDialog1.FileName, IO.FileMode.Open)
...
End Using
但是你如果执意要用的话,也可以:
FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
...
FileClose(1) '这里可以同时关闭多个文件号,文件号之间用,隔开
appid = Shell("explorer.exe c:\windows", vbNormalNoFocus)If appid <>0 Then Shell "Taskkill /PID " &appid, vbHide
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)