Làm sao lấy được tên của tất cả các đối tương đang tồn tại trên Desktop

[ndu96081631]

Tôi có 1 câu hỏi liên quan đến hệ thống thế này:
Với VBA trong Excel (hoặc VB6) ta có thể lấy được tên của tất cả các đối tượng nằm trên Desktop hay không? Bao gồm file, thư mục, shortcut và cả những thư mục đặc biệt
Nói chung là lấy tên tất cả những gì ta nhìn thấy trên Desktop...
Ngoài ra, nếu xác định được "loại" của đối tượng thì càng tốt (nó thuộc dạng File hay folder hay shortcut.... )

 

[Hai Lúa Miền Tây]

Tôi có 1 câu hỏi liên quan đến hệ thống thế này:
Với VBA trong Excel (hoặc VB6) ta có thể lấy được tên của tất cả các đối tượng nằm trên Desktop hay không? Bao gồm file, thư mục, shortcut và cả những thư mục đặc biệt
Nói chung là lấy tên tất cả những gì ta nhìn thấy trên Desktop...
Ngoài ra, nếu xác định được "loại" của đối tượng thì càng tốt (nó thuộc dạng File hay folder hay shortcut.... )

Thầy xem file của em theo link bên dưới coi có giúp gì không nhé.
http://www.4shared.com/file/188746732/2e160c4f/LIET_KE_DESKTOP_FILE.html

 

[ndu96081631]

Thầy xem file của em theo link bên dưới coi có giúp gì không nhé.
http://www.4shared.com/file/188746732/2e160c4f/LIET_KE_DESKTOP_FILE.html

Ah... không bạn à!
Liệt kê như ý tôi muốn nói là TOÀN BỘ những gì ta nhìn thấy trên màn hình Desktop luôn, bao gồm file, folder và special folder (chẳng hạn My Computer, My Documents....)
Tôi gặp khó khăn ở chổ là: Làm sao biết được các special folder này có tồn tại trên Desktop hay không?
(lưu ý rằng tên My Computer, My Documents.. có thể đã được người dùng Rename trước đó nha)

 

[ST-Lu!]

Ah... không bạn à!

Tôi gặp khó khăn ở chổ là: Làm sao biết được các special folder này có tồn tại trên Desktop hay không?
(lưu ý rằng tên My Computer, My Documents.. có thể đã được người dùng Rename trước đó nha)

Em chẳng biết tí gì nhưng vào google tìm không biết có giúp gì không? Ít nhất cũng nghĩ rằng đem lại một niềm vui nho nhỏ

WshShell.WshSpecialFolders

Obtain the full path to any of the special Windows folders.

Syntax 
      strMyPath = WshShell.SpecialFolders("strFolderName")
      or
      strMyPath = WshShell.SpecialFolders.Item("strFolderName")

Arguments:

   strFolderName : One of the following special folders 
                   (not all are available to all flavors of Windows)

      AllUsersDesktop
      AllUsersStartMenu
      AllUsersPrograms
      AllUsersStartup
      Desktop
      Favorites
      Fonts
      MyDocuments
      NetHood
      PrintHood
      Programs
      Recent
      SendTo
      StartMenu
      Startup
      Templates

Returns:
   strMyPath : The full path to the special folder
               returns NULL if the folder is not available.

Examples

' Return the full path to the Windows Desktop
Set WshShell = Wscript.CreateObject("Wscript.Shell")
StrMyDesktop = WshShell.SpecialFolders("Desktop")
MsgBox StrMyDesktop

' List all special folders
For Each strFolder In WshShell.SpecialFolders
   MsgBox strFolder
Next

 

[tbtduc]

Ngày xưa tôi có dùng chương trình AUTOIT, trong AUTOIT có chương trình AUTOIT Windows INFO để xem NAME các control trên WINDOW để mình viêt code (code tương tự VB6). Bạn thử lên google tải về xem sao?

Ngày xưa tôi dùng như thế này!
Dùng AUTOIT để chạy chương trình WINDOWS xuất file ra
Sau đó dùng Excel tổng hợp và IN ra!