• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lấy FileTitle từ đường dẫn của một tập tin

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
baohiep
Thành viên danh dự
Thành viên danh dự
Bài viết: 109
Ngày tham gia: CN 27/12/2009 6:37 pm
Đến từ: Tam Kỳ
Has thanked: 3 time
Been thanked: 9 time

Lấy FileTitle từ đường dẫn của một tập tin

Gửi bàigửi bởi baohiep » T.Sáu 29/06/2012 12:41 pm

Thủ thuật: Lấy FileTitle từ đường dẫn
Tác giả: Sưu tầm
Mô tả: Lấy FileTitle từ đường dẫn của một tập tin, giống nhu FileTitle của Dialog



Khai báo:
  1. Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
  2.  
  3. Private Function FileTitle(ByVal FileName As String) As String
  4. Dim Buffer As String
  5. Buffer = String(255, 0)
  6. GetFileTitle FileName, Buffer, Len(Buffer)
  7. Buffer = Left$(Buffer, InStr(1, Buffer, Chr$(0)) - 1)
  8. FileTitle = Buffer
  9. End Function


Sử dụng:
  1. FileTitle(đường dẫn tập tin)


I'm Hiep.

Quay về “[VB] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách