Xin Code Đếm folder trong folder chính và thông báo khi có folder mới (2 người xem)

[hitoko]

Xin các pro vba giúp em phát
Làm sao để đếm tổng folder trong 1 folder nào đó ( VD : C:\oday)
sau đó khi có 1 ai đó tạo folder trong C:\oday
thì sẽ play sound j đó
...Xin các bro giúp em! (đại khái là đếm tổng sau đó lấy thành now ... rồi if count > i thì play sound ... đại loại vậy)

 

[be_09]

Xin các pro vba giúp em phát
Làm sao để đếm tổng folder trong 1 folder nào đó ( VD : C:\oday)
sau đó khi có 1 ai đó tạo folder trong C:\oday
thì sẽ play sound j đó
...Xin các bro giúp em! (đại khái là đếm tổng sau đó lấy thành now ... rồi if count > i thì play sound ... đại loại vậy)

Cái vụ này thì tôi chẳng thấy ai đếm có bao nhiêu Folder bao giờ cả, tôi chỉ thấy người ta tính trong Folder có chứa bao nhiêu File, liệt kê ra danh sách File, phân loại và tính từng loại có bao nhiêu File theo từng tháng và theo năm.

 

[hitoko]

vậy ko làm dc hả anh ????
cho em gợi ý của việc so sánh now với count dc ko ....

 

[be_09]

vậy ko làm dc hả anh ????
cho em gợi ý của việc so sánh now với count dc ko ....

Chẳng hiểu mục đích của bạn muốn đếm có bao nhiêu Folder để làm gì?


Còn ý của tôi là như thế này: Lấy tên File có chứa trong bất kỳ Folder hay nhiều Folder, sau đó phân loại nó, bằng cách đặt tên File, sau đó lấy tên File ra bảng tính và phân loại mỗi Folder có chứa bao nhiêu File và đó là những File nào, cách đặt tên File như sau:

- HĐ_001_Chuyển quyền_Nguyễn Văn Chánh_Lê Thị Lan_20-6-2015_Cẩn
- UQ_002_Ủy quyền_Trần Văn Lành_Vũ Hà Chương_12-5-2015_Thành
- CT_003_Thừa kế_Lại Tố Lan_Vũ Như Cẩn_20-6-2015_Thủy

Giải thích cách đặt tên File:
- Tôi có 3 Folder với tên là HĐ (tên Folder chứa hợp đồng chuyển nhượng), UQ là Ủy quyền, CT là cho tặng.
- Số 001, 002.....là số thứ tự của từng loại hồ sơ (hợp đồng chuyển nhượng, Ủy quyền, cho tặng).
- Tên hồ sơ chuyển nhượng, Ủy quyền, cho tặng. Ví dụ HĐ_001:

- Nguyễn Văn Chánh là tên người chuyển nhượng, Lê Thị Lan là tên người nhận chuyển nhượng.
- 20-6-2015 là ngày tháng năm chuyển nhượng.
- Cẩn là tên cán bộ lập thủ tục.

Sau khi lấy tên File xong tôi có bảng danh sách liệt kê gồm các cột: tên File ngày hợp đồng, từng loại hợp đồng, số hợp đồng, tên người chuyển, tên người nhận, tên cán bộ thực hiện hợp đồng đó và 1 cột lấy Link đến File đó (khi nhấn vào Link này thì mở File đó ra xem mà không cần vào folder nào đó để tìm).

Tiếp theo là sử dụng PivotTable để tổng hợp số Folder, trong Folder đó có chứa bao nhiêu File tổng số từng loại hợp đồng trong năm hoặc tháng, người nào thực hiện từng công việc là bao nhiêu.

Diễn giải xong thấy phức tạp quá không biết bạn có hình dung ra không?

 

[hitoko]

thank anh be09 ... em đã tự viết ra.... ko biết có dài dòng quá không
Còn anh nói cách trên em hiểu mà .... em cũng đang làm 1 file giống anh phân tích trên ... chỉ có điều ko xài pivot table thôi (ko bit xài )
Private Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub FC()


Dim oFSO As Object
Dim folder As Object
Dim subfolders As Object
Dim PlaySound As Boolean

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set folder = oFSO.GetFolder("duongdan")
Set subfolders = folder.subfolders
i = subfolders.Count
If i > Sheet2.Range("D1").Value Then
PlaySound = True
End If

If PlaySound Then
Call sndPlaySound32("noi chua file\*.wav", 1)
Sheet2.Range("D1").Value = i
End If

Set oFSO = Nothing
Set folder = Nothing
Set subfolders = Nothing
'release memory
Call tiep
End Sub


Sub tiep()
Application.OnTime Now + TimeValue("00:00:5"), "FC"
End Sub

 

[hitoko]

Bây giờ em đang ko biết làm sao để tất cả các số trong cell to hơn các kí tự chữ khác anh nhỉ ????
VD: cell 1: anh A 1 cuon album 2030
cell 2: anh ABC 2 cai album 1521 thuong
làm sao để tất cả các số 1,2,3,4,5,6,7,8,9,0 font chữ to hơn và màu khác đi anh nhỉ?

 

[hitoko]

up cho ai do giup em