quangthanhdu
Thành viên chính thức
- Tham gia
- 21/5/10
- Bài viết
- 51
- Được thích
- 4
Đoạn code dưới đây chỉ hiện thông báo (Msgbox) các file chứa trong thư mục đường dẫn CỐ ĐỊNH có tên ABC, em nhờ mọi người sửa code lại giúp em, sao cho khi di chuyển file fileA tới một thư mục bất kỳ thì khi mở fileA thì nó sẽ thông báo các file cùng đường ẫn với fileA.
Private Sub CommandButton1_Click()
Dim fname As String
fname = Dir("C:\ABC\*.*")
Do While fname <> ""
If fname <> "fileA.xls" Then
MsgBox fname
End If
fname = Dir
Loop
End Sub
Private Sub CommandButton1_Click()
Dim fname As String
fname = Dir("C:\ABC\*.*")
Do While fname <> ""
If fname <> "fileA.xls" Then
MsgBox fname
End If
fname = Dir
Loop
End Sub
