Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Ứng dụng đổi tên file trong windows hàng loạt
#1
Hôm trước anh bạn xử lý công việc phải đổi tên field hàng loạt mà mấy phần mềm rename field tiếng việt trên mạng không đáp ứng được. Còn xử dụng các phần mềm nước ngoài thì quá phức tạp mà anh bạn cũng yếu từ chuyên môn tiếng anh nên  mình mình làm ứng dụng này tặng cho anh ấy. Tất nhiên ứng dụng này cũng chưa được hoàn chỉnh. Nay mình post lên để các bạn phát triển thêm cho nó được chuyên nghiệp  007 .
[Hình: RPSv7yi.png]

Demo
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , xuankien07 , Noname
#2
Load lại ứng dụng đã chỉnh sửa

[Hình: 6qKt9z9.png]

RenameFile
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , maidinhdan , ongke0711
#3
Ứng dụng Rename file của anh Ân không chạy được trên Access 2007 nhỉ.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
(27-07-15, 08:51 AM)ongke0711 Đã viết: Ứng dụng Rename file của anh Ân không chạy được trên Access 2007 nhỉ.

Mình sử dụng access 2003 nên không biết có chạy trên mấy cái access có version cao hơn không?. Nhưng các procedure sử dụng trong code là đa số là API của Windows chứ không phải riêng của access. Hiện nay, mình đang chạy trên windows 7 thấy cũng ổn. Bạn test thử xem sao. Cứ cho chạy thử xem lỗi đoạn nào thì từ từ nghiên cứu thêm  007
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Cái Application.FileSearch không còn hỗ trợ trên Access 2007 anh Ân à. Nó báo lỗi chỗ đó.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
(27-07-15, 04:08 PM)ongke0711 Đã viết: Cái Application.FileSearch không còn hỗ trợ trên Access 2007 anh Ân à. Nó báo lỗi chỗ đó.

Có thể nó có một Function thay thế. Cùng tìm thử xem.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
Mình muốn đổi tên file theo dữ liệu có sẳn trong table access thì chỉnh lại thế nào vậy thớt. Ví dụ trong table có bảng với dữ liệu là 00567 mình muốn đối chiếu với file trong foder nếu trùng tên thì nó sẽ đổi theo ý mình
Chữ ký của tranhai_vn Xin chào, mình là tranhai_vn, Tham gia http://thuthuataccess.com/forum từ ngày 02-06 -12.
Reply
Những người đã cảm ơn
#8
(19-09-16, 10:24 AM)tranhai_vn Đã viết: Mình muốn đổi tên file theo dữ liệu có sẳn trong table access thì chỉnh lại thế nào vậy thớt. Ví dụ trong table có bảng với dữ liệu là 00567 mình muốn đối chiếu với file trong foder nếu trùng tên thì nó sẽ đổi theo ý mình

Trả lời:

Lồng ghép các bước sau và 1 nút nhất

Bước 1: Dùng hàm Dir để kiểm tra tồn tại của file
Bước 2: Dùng hàm so sánh 2 chuỗi với nhau ( Ở đây bạn buộc phải dùng thêm hàm để cắt lấy tên file ở bước 1 và đuôi file ra mới so sánh chuỗi được
Bước 3: Dùng hàm If kết hợp hàm đổi tên: Name "D:\Tencu.mdb" As "D:\Tencandoi.mdb"

Ghi chú:
+ Xây dựng biến cố cho 1 file trước khi nào có code chuẩn thì lồng vòng lặp vào để nó tự thay 1 lần cho tất cả.
+ Hoặc cũng có thể chèn vào sự kiện Load hay Current của form nếu là Single form.

Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Xây dựng Class Modules trong Access ( Cơ bản đến Nâng cao) maidinhdan 2 177 13-11-16, 05:32 PM
Bài mới nhất: cpucloi
  [Help] SQL lỗi khi tham chiếu trường trong Forms Phung Duc 1 70 02-11-16, 03:17 PM
Bài mới nhất: Minh Tiên
  Ms Access VBA và Google drive, một vài ý tưởng trong chia sẻ và đồng bộ số liệu... paulsteigel 46 3,847 07-10-16, 02:43 PM
Bài mới nhất: kieu manh
  Xuất từ Access ra excel mà không cần phải có file định sẵn trungminh 3 349 18-09-16, 02:33 AM
Bài mới nhất: maidinhdan
  Export dữ liệu sang Word ( Nhiều dòng trong sub) danhxetnghiem 26 3,079 01-08-16, 11:08 AM
Bài mới nhất: jeck09nt

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ