Risultati da 1 a 19 di 19

Discussione: creazione nuova directory con subdirectory



  1. #1
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    creazione nuova directory con subdirectory

    Ciao, purtroppo questa volta non sono riuscito a creare un allegato di esempio, troppi dati sensibili, non ce l'ho fatta. Cercherò di essere più preciso possibile nella descrizione della necessità. Ho navigato per giorni cercando spunti ma più che esempi con routine che utilizzano MkDir non ho trovato. il che va anche bene ma se mi serve spostare un file in una sotto directory che non esiste e quindi va creata ... dice percorso non trovato e non riesco a farla creare. il percorso completo viene preso da un foglio che è nella directory principale e deve spostare il file completo di percorso indicato in C2 e lo deve spostare nel percorso indicato in G2.
    Codice: 
    Sub Sposta()
    Worksheets("SendFiles").Select
          Range("C2").Select
          Do Until IsEmpty(ActiveCell)
            Name ActiveCell.Text As ActiveCell.Offset(0, 4).Text
                ActiveCell.Offset(1, 0).Select
          Loop
    End Sub
    anche solo un suggerimento mi sarebbe di enorme aiuto.

  2. #2
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: creazione nuova directory con subdirectory

    un file di esempio è facile da farsi, si elimina la maggior parte dei dati e si mettono sui rimanenti nomi di fantasia.
    Comunque per creare una sottocartella devi creare prima la cartella madre, vedi esempio
    Codice: 
    Sub CreateFolder()
    mfolder = "F:\prova"
    MkDir mfolder
    mfolder = "F:\prova\imported"
    MkDir mfolder
    End Sub

  3. #3
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    Ciao Patel grazie per la risposta (wow! ho anche notato l'orario :48:) scusa se rispondo solo ora. allego un esempio. è stato complicato sgrossarlo dei dati sensibili perché la userform è inclusa in altri contesti. non sono stato a rimuovere i moduli inutili allo scopo perché in vero, non so in quali siano contenute routine necessarie o meno. farò ordine in seguito. spiego il principio che vorrei rendere funzionale: tutto il sistema funziona nella directory EC_CAT, quindi ovunque sia posizionata funziona da li. con il pulsante "Importa dati allegati" importo i riferimenti ai pdf che poi saranno allegati alle mail di comunicazione/sollecito. fin qui tutto funziona perfettamente. a questo punto devo archiviarli per operazione. quindi seleziono l'operazione e l'anno di competenza. il pulsante "Archivia" deve controllare che la sottodirectory esista, se non c'è la crei (ipotesi c:\EC_CAT\Dare\2016\GENNAIO) e poi sposti il file dalla posizione precedente (in C2) alla posizione scelta (nuovo percorso in G2). spero di esser stato più chiaro.
    File Allegati File Allegati

  4. #4
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: creazione nuova directory con subdirectory

    Il pulsante Archivia è collegato ad una sub vuota, io non so cosa deve fare

  5. #5
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    ciao, hai ragione, ho scordato di sistemarlo. questo il contenuto del pulsante Archivia
    Codice: 
    Private Sub CommandButton8_Click()
    Sposta
    ListBox1.Clear
    UserForm_Initialize
    End Sub
    la Sub Sposta funziona se le cartelle e sottocartelle esistono.
    Codice: 
    Sub Sposta()
    Worksheets("SendFiles").Select
    Sheets("SendFiles").Range("G1").Value = SERVIZIO.ComboBox4.Value & "\" & SERVIZIO.ComboBox3.Value & "\" & SERVIZIO.ComboBox2.Value
          Range("C2").Select
          Do Until IsEmpty(ActiveCell)
            Name ActiveCell.Text As ActiveCell.Offset(0, 4).Text
                ActiveCell.Offset(1, 0).Select
          Loop
    
    End Sub
    quello che non riesco a fare è di fargli controllare se esiste la sottodirectory e, nel caso crearla.

  6. #6
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: creazione nuova directory con subdirectory

    quali sono le cartelle che esistono sicuramente ?

  7. #7
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    quelle attualmente create. riallego con la userbox corretta
    File Allegati File Allegati

  8. #8
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: creazione nuova directory con subdirectory

    prova questa
    Codice: 
    Sub CreaCartella()
    Mainpath = ThisWorkbook.Path
    MyFolder = Range("G1")
    arr = Split(MyFolder, "\")
    ffolder = Mainpath & "\"
    For I = 0 To UBound(arr)
      ffolder = ffolder & "\" & arr(I)
      If Dir(ffolder, vbDirectory) = "" Then
         MkDir ffolder
      End If
    Next
    
     End Sub

  9. #9
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    grazie mille Patel, funziona perfettamente. Non ci sarei mai arrivato visto che hai usato un array. sono ancora parecchio indietro sull'argomento. ora devo impegnarmi per l'errore in caso di file già esistente ma credo che per questo sarà più semplice trovare il modo di sovrascriverlo.

  10. #10
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: creazione nuova directory con subdirectory

    Ciao Nessi, scusate se m'intrometto, le soluzioni sono molteplici, 2 possibili sono:

    1) disattivi i messaggi di sistema e sovrascrivi il/i file
    2 usi una funzione che controlla se il file esiste

    1a soluzione:

    Codice: 
    Application.DisplayAlerts = False ' prima del salvataggio del file
    Application.DisplayAlerts = True ' dopo il salvataggio
    2a soluzione:

    Codice: 
    Public Function EsisteFile(ByVal str As String) As Boolean
        On Error Resume Next
        EsisteFile = (GetAttr(str) And vbDirectory) = 0
    End Function

  11. #11
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    Ciao Powerwin, ma quale intromissione, anzi grazie per l'interessamento!
    Avevo già applicato la prima soluzione ma non è stata gradita da chi la deve utilizzare perché se sovrascrive il file, prima di tutto non ha controllo e poi è possibile che sovrascriva un file necessario, con contenuti diversi e potenzialmente necessario.
    La soluzione della Function è interessante, vedo se riesco a sfruttarla. Grazie mille!

  12. #12
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: creazione nuova directory con subdirectory

    Citazione Originariamente Scritto da nessi Visualizza Messaggio
    Ciao Powerwin, ma quale intromissione, anzi grazie per l'interessamento!
    Avevo già applicato la prima soluzione ma non è stata gradita da chi la deve utilizzare perché se sovrascrive il file, prima di tutto non ha controllo e poi è possibile che sovrascriva un file necessario, con contenuti diversi e potenzialmente necessario.
    Immaginavo, ma non conoscendo la situazione l'ho proposta

    Citazione Originariamente Scritto da nessi Visualizza Messaggio
    La soluzione della Function è interessante, vedo se riesco a sfruttarla. Grazie mille!
    Se hai bisogno chiedi pure

  13. #13
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    Grazie per l'aiuto, ci sto provando. in questo momento sono alle prese con il fatto che utilizzando Do Until IsEmpty(ActiveCell) / Loop non sto riuscendo a combinare la funzione IF EsisteFile partendo da questa routine (che però finirò con sostituire). [CODE]Sub Sposta()
    Worksheets("SendFiles").Select
    Range("C2").Select
    Do Until IsEmpty(ActiveCell)

    Name ActiveCell.Text As ActiveCell.Offset(0, 4).Text

    ActiveCell.Offset(1, 0).Select
    Loop
    End Sub
    [CODE]

  14. #14
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    mi sono arenato qui:
    Codice: 
    Sub Sposta()
    Dim NomeFile As String
    NomeFile = ActiveCell.Offset(0, 4).Text
    Worksheets("SendFiles").Select
          Range("C2").Select
          Do Until IsEmpty(ActiveCell)
            If EsisteFile(NomeFile) Then
                    Name ActiveCell.Text As ActiveCell.Offset(0, 4).Text
                    ActiveCell.Offset(1, 0).Select
            Else
                    ActiveCell.Offset(1, 0).Select
            End If
          Loop
    End Sub
    mi va in errore, mi dice "impossibile trovare il file

  15. #15
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    ho provato anche a metterci una messagebox ma finisce con indicarmi che il file esiste già
    Codice: 
    Sub Sposta()
    Dim NomeFile As String
    NomeFile = ActiveCell.Offset(0, 4).Text
    Worksheets("SendFiles").Select
          Range("C2").Select
          Do Until IsEmpty(ActiveCell)
            If EsisteFile(NomeFile) Then
                    Name ActiveCell.Text As ActiveCell.Offset(0, 4).Text
                    ActiveCell.Offset(1, 0).Select
            Else
                    MsgBox "File già esistente!"
                    ActiveCell.Offset(1, 0).Select
                    
            End If
          Loop
    End Sub

  16. #16
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    allego il file evoluto. sto lavorando nel modulo M_Sposta

  17. #17
    L'avatar di patel
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Livorno
    Età
    72
    Messaggi
    1115
    Versione Office
    2010
    Likes ricevuti
    143
    Likes dati
    1

    Re: creazione nuova directory con subdirectory

    dovresti allegare un file di esempio senza userform e solo con la macro interessata, altrimenti per noi è difficile ricostruire tutto il percorso per arrivare all'errore

  18. #18
    L'avatar di Powerwin
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    Milano
    Messaggi
    1404
    Versione Office
    2016 - 2010
    Likes ricevuti
    194
    Likes dati
    71

    Re: creazione nuova directory con subdirectory

    Ci ho provato lo stesso..

    Codice: 
    Sub Sposta()
    Dim NomeFile As String
    NomeFile = ActiveCell.Offset(0, 4).Text
    Worksheets("SendFiles").Select
          Range("C2").Select
          Do Until IsEmpty(ActiveCell)
            If EsisteFile(NomeFile) = False Then 'manca la verifica
                    Name ActiveCell.Text As ActiveCell.Offset(0, 4).Text
                    ActiveCell.Offset(1, 0).Select
            Else
                    MsgBox "File già esistente!"
                    ActiveCell.Offset(1, 0).Select
                    
            End If
          Loop
    End Sub
    essendo una boleana la verifica (True o False) devi indicare in base alla verifica cosa vuoi che faccia

  19. #19
    L'avatar di nessi
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Milano
    Età
    53
    Messaggi
    159
    Versione Office
    2013/2016
    Likes ricevuti
    3
    Likes dati
    35

    Re: creazione nuova directory con subdirectory

    Grazie mille Powerwin! funziona perfettamente. svista inspiegabile. grazie mille. ora posso concentrarmi su un altro controllo che devo realizzare. ma lo posterò in una nuova discussione.

Discussioni Simili

  1. [Risolto] Ricerca di file Excel in una directory
    Di Cecco Beppe nel forum Domande su Excel VBA e MACRO
    Risposte: 6
    Ultimo Messaggio: 09/01/17, 13:28
  2. Ricerca in tabella e creazione nuova tabella con i dati ricavati
    Di LucaUfficio nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 18/12/16, 19:52
  3. Indice dei file in una directory con collegamento ipertestuale
    Di misterfraky nel forum Domande su Excel VBA e MACRO
    Risposte: 32
    Ultimo Messaggio: 01/11/16, 22:59
  4. Connessione ad Active Directory
    Di Giandox nel forum Domande su Microsoft Access
    Risposte: 1
    Ultimo Messaggio: 01/09/16, 14:49
  5. Scelta directory di lavoro
    Di zio_tom nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 14/11/15, 11:57

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •