Salvare in file notepad

Question

Buonasera,

ho creato questo stringa:

Public Function Notepadriferimento()

    Shell "notepad.exe"

End Function

adesso vorrei salvare il testo anche se vuoto con il nome RIF&"variabile campo maschera"

Mi potete aiutare?

Grazie

Answer 1

Buongiorno,

 

mi da errore AS

 

Public Function Notepadriferimento()

   If Len(Dir("C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Descrizione lotti in vendita\RIF " & Forms![Inserimento immobili].[Riferimento cumulativo], vbDirectory)) = 0 Then

    Open "C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Descrizione lotti in vendita\RIF " & Forms![Inserimento immobili].[Riferimento cumulativo].txt" For Output As #1: Close #1

    Shell ("notepad.exe C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Riferimento cumulativo\Rif " & Forms![Inserimento immobili].[Riferimento cumulativo])

   End If

End Function

 

 

be direi, hai scritto un mezzo pasticcio di prugne :-)

se ho inteso cosa vuoi fare, prova così:

---

Public Function Notepadriferimento()

    Dim NomeFile As String

    NomeFile = "C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Descrizione lotti in vendita\RIF " & Forms![Inserimento immobili].[Riferimento cumulativo] & ".txt"

    If Len(Dir(NomeFile)) = 0 Then

       Open NomeFile For Output As #1: Close #1

       Shell "notepad.exe """ & NomeFile & """", vbNormalFocus

    End If

End Function

---

Ciao

Giorgio Rancati

Answer 2

Buongiorno Giorgio,

se volessi utilizzare questa funzione in una condizione di MACRO come devo trasformarla?

Io ho scritto questo ma non trova la funzione:

Len(Dir("" & [CurrentProject].[Path] & "\Foto da mostrare\Lotto " & [Maschere]![Scheda immobili]![Lotto vendita] & " da mostrare\vetrina.jpg"))=0

Answer 3

Funziona perfettamente!

Grazie mille.

Saluti

Answer 4

Buongiorno,

mi da errore AS

Public Function Notepadriferimento()

   If Len(Dir("C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Descrizione lotti in vendita\RIF " & Forms![Inserimento immobili].[Riferimento cumulativo], vbDirectory)) = 0 Then

    Open "C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Descrizione lotti in vendita\RIF " & Forms![Inserimento immobili].[Riferimento cumulativo].txt" For Output As #1: Close #1

    Shell ("notepad.exe C:\Documents and Settings\Giorgio\Documenti\JPromotion\Database J promotion\Riferimento cumulativo\Rif " & Forms![Inserimento immobili].[Riferimento cumulativo])

   End If

End Function

Answer 5

Ciao Giorgio,

non si può fare o forse sì ma con le API di Windows.

Credo convenga creare il file txt vuoto per poi aprirlo con Notepad

es.

Open "D:\dati\TuoFile.txt" For Output as #1:Close #1

Shell "Notepad.exe D:\dati\TuoFile.txt"

Rimane il fatto che le modifiche effettuate in Notepad dall'utente devono essere salvate dall'utente stesso.

Ciao

Giorgio Rancati