+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Nome file da aprire in cartella tramite bottone maschera

  1. #1
    faber83 non  in linea Novello
    Ciao a tutti,
    allora mi spiego meglio di quanto abbia fatto nel titolo del post.

    Ho creato un bottone che apre una cartella specifica e mi fa vedere tutti i file con formato zip che sono presenti all'interno.

    Il codice il seguente:
       strFileName = ShowOpen(Me, "Tutti i files (*.*)" & vbNullChar & "*.zip")
    
    Quello che vorrei e non riesco a fare aprire la cartella e visualizzare tutti i file che siano .zip e abbiano nel nome il valore di una variabile che immetto tramite textbox..

    Ho provato ad esempio a scrivere una cosa del genere:
       strFileName = ShowOpen(Me, "Tutti i files (*.*)" & vbNullChar & "*prova*.zip")
    
    ed in effetti mi viengono vvisualizzati tutti i file con il nome "like" prova.zip:

    -1prova.zip
    -prova2.zip
    -3prova1.zip
    -questaeunaprovavera.zip

    Come faccio a parametrizzare questo valore?

    Spero di essere stato chiaro,
    grazie in anticipo a tutti.

    Faber

  2. #2
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Che io sappia non fattibile quello che chiedi se non costruendosi un FileDialog peronalizzato...
    In pratica selezoni una Cartella(con il FolderBrowser) leggi tutti i FileName e li SKIPPI se non contengono la stringa di ricerca.
    Con l'elenco popoli una ListBox e consenti la Selezione... se hai la licenza di VB6 usi una ListView e metti NomeFile ed ICONE...!
    L'effetto sar identico...

    In questo Demo che fa gi quasi tutto quello che chiedi, devi solo inserire il CHECK su FileName della stringa usando INSTR(NomeFile,"STRINGA")>0 prima di passare il File al controllo LISTVIEW:
    http://www.alessandrobaraldi.it/Dett....asp?IdFAQ=287

    Non funziona su A2007 con W7(64Bit) credo possa essere un problema di API... ma non ho approfondito.
    Con A2002 e 2003 tutto OK.
    Ultima modifica di @Alex; 01-09-2010 00:01 
    ℹ️ Leggi di pi su @Alex ...

  3. #3
    faber83 non  in linea Novello
    Ciao Alex,
    innanzitutto grazie per la risposta..

    Sto provando a inserire il tuo aiuto nella mia mascherina:-)

    Una ulteriore domanda: tramite la solita maschera compilo una textbox con del testo, caratterizzato da una certa formattazione (ad esempio una cosa simile):
    Con la presente si richiede la attivazione dei seguenti ...:

    attivazione:
    (richiesta xxxxx -ID yyyyyyy) ......


    Il relativo workorder e' contenuto nel file allegato: ''xxxxyyyyzzzz.zip''

    Data di attivazione prevista:



    A disposizione per ogni chiarimento,
    Ora, ho inserito il bottone che invia questo testo ad outlook direttamente ma il testo della mail risulta tutto continuo senza nessuno spazio o tab o "accapo".

    Dim destinatario As String
    Dim oggetto As String
    Dim testo As String
    
    
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Const SW_NORMAL = 1
    
    
    Private Sub CmdSend_Click()
    Dim ret As Long
    Dim testo As String
    
    testo = txtBody
    oggetto = Me.txtSubject
    destinatario = "xxxyyyzzz@zyx.klj"
    
    ret = ShellExecute(Me.hwnd, "Open", "mailto:" & destinatario & "?subject=" & oggetto & "&body=" & testo, vbNullString, vbNullString, SW_NORMAL)
    End Sub
    
    Come posso risolvere questo problema? Ed inoltre posso inserire dei destinatari in cc?

    Grazie in anticipo,
    Faber

  4. #4
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Quote Originariamente inviato da faber83 Visualizza il messaggio
    Ciao Alex,
    innanzitutto grazie per la risposta..

    Sto provando a inserire il tuo aiuto nella mia mascherina:-)
    Bene.
    Quote Originariamente inviato da faber83 Visualizza il messaggio
    Una ulteriore domanda: tramite la solita maschera compilo una textbox con del testo, caratterizzato da una certa formattazione (ad esempio una cosa simile):
    Ora, ho inserito il bottone che invia questo testo ad outlook direttamente ma il testo della mail risulta tutto continuo senza nessuno spazio o tab o "accapo".

    Dim destinatario As String
    Dim oggetto As String
    Dim testo As String
    
    
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
    Private Const SW_NORMAL = 1
    
    
    Private Sub CmdSend_Click()
    Dim ret As Long
    Dim testo As String
    
    testo = txtBody
    oggetto = Me.txtSubject
    destinatario = "xxxyyyzzz@zyx.klj"
    
    ret = ShellExecute(Me.hwnd, "Open", "mailto:" & destinatario & "?subject=" & oggetto & "&body=" & testo, vbNullString, vbNullString, SW_NORMAL)
    End Sub
    
    Come posso risolvere questo problema? Ed inoltre posso inserire dei destinatari in cc?

    Grazie in anticipo,
    Faber
    Le domande che non hanno lo stesso oggetto dell'originale DEVONO essere fatte separatamente, il motivo che chi usa la ricerca per argomenti non potrebbe agevolarsi di interventi che non riuscirebbe a trovare...!
    Il regolamento che hai sicuramente letto spiega tutto.
    ℹ️ Leggi di pi su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. [VBA] Aprire cartella in rete tramite codice
    Da Kivar nel forum Microsoft Word
    Risposte: 0
    Ultimo Post: 13-07-2012, 17:16
  2. Risposte: 6
    Ultimo Post: 10-12-2011, 16:16
  3. Aprire un file di testo da una cartella compressa
    Da CiroVbNet nel forum Visual Basic .Net
    Risposte: 2
    Ultimo Post: 20-11-2010, 16:43
  4. Risposte: 2
    Ultimo Post: 05-03-2009, 12:11
  5. Aprire pi file da cartella
    Da lucagfc nel forum Visual Basic 6
    Risposte: 13
    Ultimo Post: 03-08-2006, 10:04