我有一個文件清單,在程序中打開清單中的文件!
解决方案 »
- 今天用SENDKEYS遇到的怪事
- 做曲线
- 小女子跪求各位大虾!!!
- vsReport和vsPrinter控件打印报表的问题
- ~~~~~一个很简单的问题,但是我就是没有看到效果,请各位帮忙看看。马上给分!~~~~
- 想写一个多线程抓网页, 然后分析当中有用的信息, 存储到数据库
- picturebox抖动问题?
- do until .....loop
- 300分解决一个小问题,非常急,请帮忙!
- 引用 ADODB.Stream 在 VB 中实现大文件的分割与恢复过程代码!
- 结帐,请sxs69() ( ) 信誉:104 进来领分,希望以后继续关注我的问题,谢谢了!
- ★★★★用word 作模板 将需要的数据输入的到word中生成文档 急
Private Sub Form_Load()ShellExecute Me.hWnd, "open", "C:\User.doc", vbNullString, vbNullString, SW_SHOWEnd Sub
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command1_Click()
Dim filename As String
Open "c:\filelist.txt" For Input As #1
Do Until EOF(1)
Input #1, filename
ShellExecute Me.hwnd, "open", filename, vbNullString, vbNullString, ByVal 0&
Loop
Close #1
End Sub