Newsgroup: it.comp.appl.access
Titolo: cambiare le opzioni cartella per file nascosti

ciao a tutti,
avrei bisogno di avere un'informazione
come posso visualizzare i file nascosti tramite la finestra che mi
compare grazie all'esempio del sito comune di stefano bettini
esempio
salvo l'impostazione corrente
imposto di visualizzare file nascosti
avvio la finestra
ripristino la visualizzazione precedente
grazie a tutti

 wrote in message
news:41fdfb6a$0$6310$
5fc...@news.tiscali.it

Vedi se la funzione SetAttr/GetAttr possono fare
quello che ti serve.
SetAttr "FILEPROV", vbHidden	' Imposta l'attributo Nascosto.
MyAttr = GetAttr("FILEPROV")
Altrimenti tramite WMI si può impostare tutta la cartella.
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:063324bbe07b891a49...@mygate.mailgate.org...

purtroppo non è quello che serve a me.
cerco di spiegare meglio
avrei la necessità di aprire la finestra per la selezione del file
tramite l'esempio di stefano bettini che ho trovato sul SC.
l'esempio è perfetto, l'unica cosa che mi servirebbe è quella di
visualizzare anche i file nascosti.
se prima di aprire questa finestra io imposto tramite windows di
visualizzare cartelle e file nascosti allora è perfetta ma sarebbe
fantastico riuscire a impostarlo da vba e ripristinarlo alla fine della
selezione.
grazie di nuovo

 grazie di nuovo
OK, ora ho capito.
Non ho presente il demo di Bettini, ma se è quello del CommonDialog
per poter visualizzare i Files nascosti basta passare un FLAGS in
OR a quelli esistenti.
Non posso essere più preciso per ora, in serata ti dò qualche
INFO maggiore.


 ha scritto nel messaggio
news:70016b67f930b0fe47...@mygate.mailgate.org...

l'isrtruzione che utilizzo io è la seguente
Option Compare Database
'Dichiarazioni
Private Declare Function GetOpenFileName Lib "comdlg32.dll" _
            Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As
Long
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
'Funzione da richamare
Public Function cmdlg_file()
   'Autore: Stefano Bettini
   'Restituisce: il percorso completo del file selezionato
   Dim OpenFile As OPENFILENAME
   Dim lReturn As Long
   Dim sFilter As String
   OpenFile.lStructSize = Len(OpenFile)
   sFilter = "pdfcreator.ini" & Chr(0) & "pdfcreator.ini" & Chr(0)
   OpenFile.lpstrFilter = sFilter
   OpenFile.nFilterIndex = 1
   OpenFile.lpstrFile = String(257, 0)
   OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
   OpenFile.lpstrFileTitle = OpenFile.lpstrFile
   OpenFile.nMaxFileTitle = OpenFile.nMaxFile
   OpenFile.lpstrInitialDir = "C:\"
   OpenFile.lpstrTitle = "Selezionare il file pdfcreator.ini"
   OpenFile.flags = 0
   lReturn = GetOpenFileName(OpenFile)
   If lReturn = 0 Then
      cmdlg_file = ""
      'MsgBox cmdlg_file
   Else
      cmdlg_file = Left(OpenFile.lpstrFile, InStr(OpenFile.lpstrFile,
Chr$(0)) - 1)
      'MsgBox cmdlg_file
   End If
End Function


La versione che usi è molto semplificata e poco flessibile
soprattutto perchè non espone le costanti di funzione.
Con questo inparticolare non ho provato, ma va aggiunto
in OR questo valore al FLags:
Metti nella dichiarazione delle Costanti:
Public Const cdlOFNHideReadOnly = 4
 OpenFile.flags = 0
 OpenFile.flags =  OpenFile.flags OR cdlOFNHideReadOnly
Dovrebbe funzionare, se non funziona ti passo un DEMO completo.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:41fe62a6$0$32346$5fc...@news.tiscali.it...

grazie dell'aiuto ma purtroppo non funziona,
visto che sei così gentile resto in attesa del demo che dicevi prima.
grazie di nuovo

Mandami una Mail che ti rispondo.
ik2...@libero.it
Ciao
-- 
@Alex (Alessandro Baraldi)
