[VB] Verifica cartella esistente in base al nome parziale

[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.

[icecube_HT]

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...)

[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.

[icecube_HT]

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.:

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:

If NonEsiste("Off 99 -*") Then
   'crea nuova cartella e prosegui
Else
   '...rifiuta la nuova cartella....
End If

[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.

[icecube_HT]

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.