作者opqisgod (紫)
看板Visual_Basic
标题[VB6 ] 开启档案路径的问题
时间Thu Dec 23 20:07:21 2010
我想做一个程式用来开启档案并列印後关闭
写好後转成执行档放在档案资料夹外，但执行程式开启档案时都显示
找不到档案C:\windows\system32\0.doc
但我路径并没有这样写，我只想开启资料夹内的0.doc
资料夹内包含: 程式与档案资料夹 ， 而程式是开启档案资料夹内的档案
----------
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 Long
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To 5
If Check1(i).Value = 1 Then
Dim temp As Object
Dim S As String
S = (i) & ".doc"
Set temp = CreateObject("Word.Application")
temp.Documents.Open (S)
DoEvents
temp.Application.PrintOut
temp.quit
Set temp = Nothing
End If
Next i
End Sub
---------------------------------
因本人还在学习阶段，可能有些地方写的不是很好，希望各位帮忙解答，非常谢谢大家！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.253.109.216
1F：→ mathlinka:HINT : App.Path 12/23 20:32
2F：→ opqisgod:感谢楼上的大大，我改用App.Path後就成功了，谢谢!!! 12/23 20:54