Newsgroup: it.comp.appl.notes-domino
Titolo: Comando OpenFileDialog (R5)

Come mai se utilizzo il comando workspace.OpenFileDialog(True, "Lista
file", strFilter, "C:\")
Posso selezionare solo pochi file?
Forse perchè il risultato va in un campo variant? Sbaglio qualcosa?
Come posso ovviare se voglio presentare ad un utente la finestra di
selezione file e permettergli di selezionarne quanti ne vuole.
Grazie dell'aiuto !!!
bye bye 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Posso selezionare solo pochi file?
Io nin zo ma ho usato questo:
Declare Function NEMGetFile Lib "nnotesws" ( wUnk As Integer, Byval szFileName As String, Byval szFilter As String, Byval szTitle As String) As Integer 
'use nnotesws for Win95 and WinNT, inotesws for OS/2, and _nem for Win16
	Dim szFileName 		As String*256
	Dim szTitle 				As String
	Dim szFilter 				As String
	Dim session 			As New NotesSession
	Dim db					As NotesDatabase
 
	Set ws = New NotesUIWorkspace
	Set uidoc = ws.CurrentDocument
	Set doc = uidoc.document
 
'Needs to be a NULL before calling the function
	szFilename = "P:\Offerte\Conferme\" & Chr(0)
	szTitle = session.Commonusername & ", seleziona il tuo file addesso!" 
	szFilter = "MS Word Documents|*.doc|Notes Databases|*.NSF|Notes Templates|*.NTF|Programs|*.EXE|All Files|*.*|" 	'Use this format for ANY file type
 
	If NEMGetFile( 0, szFileName, szFilter, szTitle) <> 0 Then
' We need to do this because the return is a NULL terminated string.
		szFileName = szFileName & |"|
		'Messagebox szFileName, 64, "File Selezionato"
	End If
Ho fatto un copia incolla senza guardare nulla; dovrebbe funzionare.
-- 
Ciao./ Zio Ciano.
Born to run Unix
-Fare bene non e` bene, fare male non c'e` male.-

Grazie Zio Ciano , sempre molto attivo nel dare ottimi suggerimenti.
Ho provato il tutto č funziona a meraviglia.
Purtroppo il mio problema resta visto che la selezione un unico file
si poteva  anche fare usando il comando "OpenFile Dialog" di R5.
Io di file ne vorrei selezionare piů di uno a mio piacimento.
Un pň come fa il comando "allega" del DB di posta.
OpenFileDialog mi prermette di selezionane purtroppo circa una decina
di file .
Se supero un certo numero di selezioni mi restituisce il campo vuoto.
Ora cerco sulle DLL di windows se c'č qualcosa.
Grazie comunque.
bye

Un pò come fa il comando "allega" del DB di posta.
Ma hai provato a premere il tasto "Shift" e/o "Ctrl"  per selezionare i
file???
Non mi ricordo ma mi sembra che funzionava.


 Non mi ricordo ma mi sembra che funzionava
Certo i test li ho fatti proprio premendo questi tasti.
Io sono una programmatrice evoluta. Funziona solo per singole selezioni.
bye

Ho trovato questa API di Windows ma come plus ho solamente il fatto di
avere una finestra dimensionabile e piu' simile a quelle di windows.
Il parametro OFN_ALLOWMULTISELECT = &h200 mi fa pensare di essere
sulla strada giusta.......vuoi percorrerla con me ?
bye 
Dim Filter As String
Dim FileName As String
Dim FileTitle As String
Dim TruncName As String
Dim VaultWIPRoot As String
Dim VaultWIPUserPath As String
Type tagOPENFILENAME
	lStructSize As Long
	hwndOwner As Long
	hInstance As Long
	lpstrFilter As String
	lpstrCustomFilter As Long
	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 Long
End Type
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias
"GetOpenFileNameA" (OPENFILENAME As tagOPENFILENAME)  As Long
Dim OPENFILENAME As tagOPENFILENAME
Const OFN_READONLY = &h1
Const OFN_OVERWRITEPROMPT = &h2
Const OFN_HIDEREADONLY = &h4
Const OFN_NOCHANGEDIR = &h8
Const OFN_SHOWHELP = &h10
Const OFN_ENABLEHOOK = &h20
Const OFN_ENABLETEMPLATE = &h40
Const OFN_ENABLETEMPLATEHANDLE = &h80
Const OFN_NOVALIDATE = &h100
Const OFN_ALLOWMULTISELECT = &h200
Const OFN_EXTENSIONDIFFERENT = &h400
Const OFN_PATHMUSTEXIST = &h800
Const OFN_FILEMUSTEXIST = &h1000
Const OFN_CREATEPROMPT = &h2000
Const OFN_SHAREAWARE = &h4000
Const OFN_NOREADONLYRETURN = &h8000
Const OFN_NOTESTFILECREATE = &h10000
Const OFN_SHAREFALLTHROUGH = 2
Const OFN_SHARENOWARN = 1
Const OFN_SHAREWARN = 0
Function OpenCommDlg ()
	Dim Title As String
	Dim DefExt As String
	Dim szCurDir As String
	Dim APIResults%
 
'	SetFileFilter
 
     'Give the dialog a caption title.
	Title = "Add supporting document" & Chr$(0)
 
     'Allocate string space for returned strings
	FileName = Chr$(0) & Space$(255) & Chr$(0)
	FileTitle = Space$(255) & Chr$(0)
 
     'If the user does not specify an extension, append TXT.
	DefExt = "BMP" & Chr$(0)
 
     'Set up the default directory
	szCurDir = Curdir$ & Chr$(0)
 
     'Set up the data structure before you call the GetOpenFileName
 
	OPENFILENAME.lStructSize = Len(OPENFILENAME)
 
     'If the OpenFile Dialog box is not linked to any form use this
line.
     'It will pass a null pointer.
 
	OPENFILENAME.hwndOwner = 0&
 
	OPENFILENAME.lpstrFilter =  Filter
	OPENFILENAME.nFilterIndex = 1
	OPENFILENAME.lpstrFile = FileName
	'OPENFILENAME.nMaxFile = Len(FileName)
	OPENFILENAME.nMaxFile = 200	
	OPENFILENAME.lpstrFileTitle = FileTitle
	OPENFILENAME.nMaxFileTitle = Len(FileTitle)
	OPENFILENAME.lpstrTitle = Title
	OPENFILENAME.Flags = OFN_FILEMUSTEXIST
	OPENFILENAME.lpstrDefExt = DefExt
	OPENFILENAME.hInstance = 0
	OPENFILENAME.lpstrCustomFilter = 0
	OPENFILENAME.nMaxCustFilter = 0
	OPENFILENAME.lpstrInitialDir = szCurDir
	OPENFILENAME.nFileOffset = 0
	OPENFILENAME.nFileExtension = 0
	OPENFILENAME.lCustData = 0
	OPENFILENAME.lpfnHook = 0
	OPENFILENAME.lpTemplateName = 0
 
     'This will pass the desired data structure to the Windows API,
     'which will in turn it uses to display the Open Dialog form.
	APIResults% = GetOpenFileName(OPENFILENAME)
 
	If APIResults% <> 0 Then
		FileName = Cstr( OPENFILENAME.lpstrFile )
		FileTitle = Cstr( OPENFILENAME.lpstrFileTitle )
		OpenCommDlg = 1
	Else
		OpenCommDlg = 0
	End If
End Function
Sub Click(Source As Button)
	If (OpenCommDlg = 1) Then
		Print " "
' use FileExt and other globals that contain the filename and
extension,etc.
	Else
		Print "No documents were attached."
	End If
 
End Sub

Trovatoooooo !!!
http://www.notes.net/46dom.nsf/ShowMyTopicsAllFlatweb/5c94533b85a9595c85256b39000e13ce?OpenDocument
grazie comunque 
bye

Io sono una programmatrice evoluta. Funziona solo per singole selezioni.
Ok. Comunque non dubitavo se sei o no "evoluta" mi capita tante volte di
dimenticarmi delle cazzate pazzesce.
