type filename1 [AUTO][WRAP][TO PRINTER [PROMPT] TO FILE Filename2] [NUMBER]
假设只是想看看内容,就打:
type 文件地址\文件名.txt就成了。
如:
type d:\aaa.txt
用记事本翻开
用API函数能够做到,也能够用号令的形式(run函数)
详细代码我发到你邮箱了。
用Command.用你做的法式翻开文件时,你的法式里的Command就是阿谁文件的地址:
Private Sub Form_Load()
If Command "" Then
Text1 = Command
Text1 = Replace(Text1, """", "")'Command得到的地址是带双引号的,要把双引号往掉
Open Text1 For Input As #1
Text1 = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close #1
End If
End Sub
0