Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2009
    Messaggi
    5

    [VB] Verifica cartella esistente in base al nome parziale

    Buongiorno a tutti,
    sono nuovo del forum ed anche poco pratico di programmazione ma ho la necessità di verificare la presenza di una cartella in un dato percorso:
    devo creare una nuova cartella e verificare che non sia esistente;
    il problema si evidenzia perchè devo verificare solamente la prima parte del nome in quanto il resto del nome potrebbe variare a seconda dell'utente.

    Faccio l'esempio pratico:
    path: = C:\archivio
    nome cartella = "Off 99 - nome utente"

    quindi vorrei verificare solamente "Off 99 -" e non il nome utente

    spero di essere stato abbastanza chiaro e ringrazio tutti per l'attenzione prestata.

  2. #2

    Re: [VB] Verifica cartella esistente in base al nome parziale

    Originariamente inviato da Papao
    Buongiorno a tutti,
    sono nuovo del forum ed anche poco pratico di programmazione ma ho la necessità di verificare la presenza di una cartella in un dato percorso:
    devo creare una nuova cartella e verificare che non sia esistente;
    il problema si evidenzia perchè devo verificare solamente la prima parte del nome in quanto il resto del nome potrebbe variare a seconda dell'utente.

    Faccio l'esempio pratico:
    path: = C:\archivio
    nome cartella = "Off 99 - nome utente"

    quindi vorrei verificare solamente "Off 99 -" e non il nome utente

    spero di essere stato abbastanza chiaro e ringrazio tutti per l'attenzione prestata.
    Non e' chiarissimo...

    1) se il nome utente e' quello del computer, puoi ottenere il nome completo con
    NomeCartella = "Off 99 - " & Environ$("USERNAME")
    e controllare se la cartella esiste.

    2) se il nome utente e' qualcos'altro, e lo conosci, puoi comunque costruire il nome completo e controllare...

    3) se il nome utente e' qualcos'altro, e NON lo conosci, ha poco senso fare quel controllo, perche' potrebbe esistere una cartella col nome strutturato in quel modo, ma essere relativa ad un ALTRO utente...

    In ogni modo, potresti memorizzare i nomi di tutte le cartelle presenti in quel path, e verificare un nome COME quello, con l'operatore Like :
    If NomeCartella Like "Off 99 -*" Then ....
    (nota l'asterisco dopo la parte conosciuta del nome, vedi la guida di Like...)

    IceCube_HT (VB6 fan Club)

  3. #3
    Utente di HTML.it
    Registrato dal
    Apr 2009
    Messaggi
    5
    Innanzi tutto grazie per la celere risposta!

    il nome utente è qualcosa di sconosciuto e variabile di volta in volta a discrezione dell'utente

    quindi potrebbe succedere di creare una nuova cartella con lo stesso numero di offerta ma con utente diverso; questo è ciò che devo evitare che accada!

    quindi l'offerta deve essere solo unica!
    Es.
    "Off 99 - mario" (cartella esistente)
    "Off 99 - giorgio" (cartella nuova ma che non deve esistere)

    per l'operatore LIKE vado a leggermi la guida perchè non lo conosco.
    Grazie.

  4. #4
    Originariamente inviato da Papao
    Innanzi tutto grazie per la celere risposta!

    il nome utente è qualcosa di sconosciuto e variabile di volta in volta a discrezione dell'utente

    quindi potrebbe succedere di creare una nuova cartella con lo stesso numero di offerta ma con utente diverso; questo è ciò che devo evitare che accada!

    quindi l'offerta deve essere solo unica!
    Es.
    "Off 99 - mario" (cartella esistente)
    "Off 99 - giorgio" (cartella nuova ma che non deve esistere)

    per l'operatore LIKE vado a leggermi la guida perchè non lo conosco.
    Grazie.
    Mmmm... ora e' un po' piu' chiaro......

    Ti costruisci una funzione che controlla se esiste gia' una cartella di quel tipo, ad es.:
    codice:
    Public Function NonEsiste(pattern As String) As Boolean
      Dim nc As String
      nc = Dir("D:\", vbDirectory)   '<<< al posto di D:\ va' il path di origine delle cartelle
      Do While nc <> ""
        If nc Like pattern Then Exit Function  'c'e' gia' !!!
        nc = Dir$
      Loop
      NonESiste = True
    End Function
    ...e la usi con una riga tipo:
    codice:
    If NonEsiste("Off 99 -*") Then
       'crea nuova cartella e prosegui
    Else
       '...rifiuta la nuova cartella....
    End If
    IceCube_HT (VB6 fan Club)

  5. #5
    Utente di HTML.it
    Registrato dal
    Apr 2009
    Messaggi
    5
    é perfetta amico, sei un grande
    mi hai dato una grossa mano!

    ho bisogno di un'ultima cosa visto la cortese gentilezza (ma non vorrei chiederti troppo)

    debbo inoltre creare un'appuntamento in outlook 2000 con promemoria fra 20 giorni sai dirmi se è possibile ed eventualmente darmi qualche dritta?

    ti ringrazio infinitamente per ciò che hai fatto per me.

  6. #6
    Originariamente inviato da Papao
    é perfetta amico, sei un grande
    mi hai dato una grossa mano!

    ho bisogno di un'ultima cosa visto la cortese gentilezza (ma non vorrei chiederti troppo)

    debbo inoltre creare un'appuntamento in outlook 2000 con promemoria fra 20 giorni sai dirmi se è possibile ed eventualmente darmi qualche dritta?

    ti ringrazio infinitamente per ciò che hai fatto per me.
    Di nulla... figurati !

    Per lo scadenzario di Outlook purtroppo non sono in grado di aiutarti... non lo uso.

    IceCube_HT (VB6 fan Club)

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.