Problema di directory

di il
1 risposte

Problema di directory

Ciao a tutti scrivo nella speranza che qualcuno mi risponda...
Ho un problema... devo fare in modo che il programma salvi il file in una directory che viene specificata dall' utente e non in una che gli scrivo io nel codice.... il codice che ho scritto per farla salvare dove gli dico io è:
-----------------------------------------------------------
Private Sub Command1_Click()
Open "C:\Text\testo.dan" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
-----------------------------------------------------------
ho bisogno che il percorso cambi e che venga dichiarato in una textbox... con la variabile ho provato:

-----------------------------------------------------------
Dim percorso as string
text1.text = percorso
Private Sub Command1_Click()
Open "percorso" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
-----------------------------------------------------------
ma mi dice invalid outside procedure... dove è colorato in giallo...
che posso fare... qualcuno sa dirmi come si fà o dove è l' errore?
Grazie

1 Risposte

  • Re: Problema di directory

    Nel sorgente avrei previsto 3 textBox:
    1) TextDir per indicare la cartella
    2) TextFil per indicare il nome del file
    3) Text1 peril testo da scrivere nel file
    Questo risulta essere il codice:
    Private Sub Command1_Click()
    'in TextDir c'è il percorso
    'in TextFil c'è il nome del file
    '------
    Dim LPath As String, Lfile As String
    Dim Response As Integer
    
    LPath = Trim$(TextDir.Text)
    If LPath = "" Then
        MsgBox "Indicare la cartella"
        TextDir.SetFocus
        Exit Sub
    End If
    Lfile = Trim$(TextFil.Text)
    If Lfile = "" Then
        MsgBox "Indicare il nome del file"
        TextFil.SetFocus
        Exit Sub
    End If
    'controllo che esista la cartella
    If Dir(LPath, vbDirectory) = "" Then
        If MsgBox("Cartella '" & LPath & "' inesistente; la creo", vbQuestion + vbYesNo, "NUOVA CARTELLA") = vbNo Then Exit Sub
    'altrimenti la creo
        MkDir LPath
    End If
    'se non c'è aggiungo la barra
    If Right$(LPath, 1) <> "\" Then LPath = LPath & "\"
    'controllo che non esista il file
    If Dir(LPath & Lfile, vbNormal) > "" Then
        If MsgBox("File '" & Lfile & "' già esistente; lo ricreo", vbQuestion + vbYesNo, "FILE ESISTENTE") = vbNo Then Exit Sub
    End If
    'finalmente lo rigenero
        Open LPath & Lfile For Output As #1
        Print #1, Text1.Text
        Close #1
    End Sub
    
    Buon lavoro
Devi accedere o registrarti per scrivere nel forum
1 risposte