xuatquanvosau > 08-04-19, 06:30 PM
Private Sub Command19_Click()
Dim FileOpen As String
FileOpen = "X:\Yen\AccessSanPham\2Xem\07SoDoNhatThu\Long Thanh.pdf"
With CreateObject("Shell.Application")
.Open (FileOpen)
End With
End Sub
mrsiro > 08-04-19, 07:17 PM
xuatquanvosau > 08-04-19, 09:02 PM