Ghi thêm thông tin Properties của file bằng VBA

[thnghiachau]

Chào cà nhà GPE,
Xin cho mình hỏi... trên VBA mình có thể ghi thêm thông tin properties của file và giữ lại trên filee đó như hình được không ạ?


Xin cám ơn nhiều.

 

[befaint]

Thử tìm cái này xem:

CreateObject("DSOFile.OleDocumentProperties")
..
.SummaryProperties.Title

 

[thnghiachau]

Thử tìm cái này xem:

CreateObject("DSOFile.OleDocumentProperties")
..
.SummaryProperties.Title

Cám ơn anh nhiều

 

[thnghiachau]

Thử tìm cái này xem:

CreateObject("DSOFile.OleDocumentProperties")
..
.SummaryProperties.Title

Anh @befaint ơi,
em theo hướng dẫn của anh và làm đọan code nhỏ sau:

Sub Test()
Dim oDSOFile As Object, oSumPropertiy As Object
    Set oDSOFile = CreateObject("DSOFile.OleDocumentProperties") 'DSO OLE Document Properties Reader 2.1
    With oDSOFile
        .Open ("D:\New folder\IMG-1.jpg")
        .SummaryProperties.Subject = "Subject File IMG"
        .SummaryProperties.Title = "Title File IMG"
        .Save
        .Close
    End With
    If Not oDSOFile Is Nothing Then Set oDSOFile = Nothing
End Sub

thì kết quả là:

file IMG thì khi kiểm tra Properties của file thì nó không có ghi gì cả... trong Subject và TItle


nhưng khhi kiểm tr bằng lệnh "MsgBox .SummaryProperties.Subject" và "MsgBox .SummaryProperties.Title" thì có kết quả đúng như đã thiết lập như trong code trên:


************************************************

với file excel thì OK



Không biết em có thiếu sót chỗ nào không nhỉ?

Cám ơn anh nhiều.

 

[befaint]

file IMG thì khi kiểm tra Properties của file thì nó không có ghi gì cả... trong Subject và TItle

Hình như DSOFile có kén chọn kiểu file áp dụng... nhưng file image vẫn được thì phải.

 

[thnghiachau]

Hình như DSOFile có kén chọn kiểu file áp dụng... nhưng file image vẫn được thì phải.

Hic... em mò hoài làm hoài ròng rã cả tuần rùi bằng mọi cách không dc anh ơi...
Các thầy xem thử giúp em bài #4 với.
Cám ơn GPE nhiều.