Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Короткое имя файлов. VB6 Добавлено: 23.01.13 20:56  

Автор вопроса:  aiswork
Всем привет!
У меня возникла проблема.
Как из указанной папки загрузить в ListBox список файлов с короткими именами?
Типа как в FileLIstBox.
Последний не подходит для поставленной задачи.
Спасибо.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #1 		Добавлено: 24.01.13 20:08
  1. Option Explicit
  2. Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
  3.  
  4. Private Sub Form_Load()
  5.     Dim buf As String, out_len As Long
  6.     buf = Space$(1024)
  7.     out_len = GetShortPathName("F:\My Documents\Æóðíàë Ðàäèî\Radio\2003\Ðàäèî 2003-03.djvu", buf, 1024)
  8.     buf = Left$(buf, out_len)
  9.     Debug.Print buf
  10. End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам