-
RE: Cách lấy (copy)database tại một máy trên mạng Lan
Noname > 06-12-10, 04:20 PM
(06-12-10, 04:04 PM)chihienphuco Đã viết: Đổi file khác thì câu lệnh cho copy, nhưng file DATA.mdb đang hoạt động thì câu lệnh báo lỗi. Mà em mở cửa sổ copy bằng tay như thông thường paste chổ khác nó vẫn thực hiện được?
Có cách nào khắc phục giúp em với!
Vậy dùng thử
Mã:Dim RCopy as String
Rcopy= "Copy \\computerA\Baocao\nhaplieu.mdb D:\nhaplieu.mdb"
Shell RCopy,vbHide
-
RE: Cách lấy (copy)database tại một máy trên mạng Lan
chihienphuco > 06-12-10, 04:28 PM
Em dùng câu lệnh này:
Trích dẫn:Private Sub Command371_Click()
Dim RCopy As String
RCopy = "Copy D:\CSDL\DATA.mdb D:\CSDLLUU\DATA.mdb"
Shell RCopy, vbHide
End Sub
Nó báo lỗi:
File not found
và hiện màu vàng dòng cuối Shell RCopy,vbHide -
RE: Cách lấy (copy)database tại một máy trên mạng Lan
Noname > 06-12-10, 04:45 PM
Bạn thử lại cách này xem:
b1. Tạo 1 file nội dung là
Mã:Copy D:\CSDL\DATA.mdb D:\CSDLLUU\DATA.mdb
lưu thành file d:\csdl\copy.bat
b2. gọi hàm
Mã:Shell "d:\csdl\copy.bat", vbHide