VBNet - Форум - Как показать полный католог диска?

Вопрос: Как показать полный католог диска? Добавлено: 09.06.03 18:07

Автор вопроса: sia1

Всем привет.
Мне нужно сделать, чтобы пользователь смог выбрать полный путь , допустим, куда сохранить файл. Я этот сделал с помощью двух полей, а хотелось бы с помощью одного.
Можно ли это сделать с помощью TreeView? , если да , то как ?
Желательно чтобы это всё выглядело ввиде дерева.
Если кто это делал , как-то по другому , с удовольствием посмотрю.
Вообщем буду рад любому совету.

Ответить

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

Номер ответа: 1 Автор ответа: ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406	Профиль \| \| #1	Добавлено: 09.06.03 18:58
	Сейчас дам контрол Сообщи о получении Ответить

Номер ответа: 2
Автор ответа:

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | | #2

Добавлено: 10.06.03 00:22

Так пойдёт?

'В модуль:

Option Explicit
Public gFileName As String
Private Type OPENFILENAME
lStructSize As Long
hWndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long

Public Function MySave()
Dim ofn As OPENFILENAME
Dim a
ofn.lStructSize = Len(ofn)
ofn.hWndOwner = Form1.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "Text files (*.txt)" + Chr$(0) + "*.txt" + Chr$(0)
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254)
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = App.Path
ofn.lpstrTitle = "Save Text Files As"
ofn.flags = 0
a = GetSaveFileName(ofn)
If (a) Then
MySave = Trim(ofn.lpstrFile)
MySave = Mid(MySave, 1, Len(MySave) - 1) & ".txt"
Else
Exit Function
End If
End Function

'В форму:

Private Sub Form_Load()
MsgBox MySave
End Sub

Ответить

Страница: 1 |