Newsgroup: it.comp.appl.access
Titolo: creazione file

Ciao a tutti e ben ritrovati dopo la Santa Pasqua,
sto cercando una funzione per creare un file, nello specifico un file di 
testo.
Sulla guida ho trovato:
Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\prova.txt", True)
    a.WriteLine("Questa è una prova.")
    a.Close
End Sub
Però non so come richiamare questa sub, è magari una funzione?
Ho messo nella finestra delle proprietà di un controllo sull'evento click 
=createafile() ma mi restituisce errore di sintassi nell'espressione.
Dove sbaglio? C'è qualcosa di più semplice? 

 wrote in message
news:d2b8kc$gvp$
1...@hulme.interac.it

Non hai dichiarato le variabili Oggetto.
Metti questo in un Modulo e chiamalo passando
il Percorso commpleto di nome del File da crare:
Public Sub BuildText(Path as string)
' -- Creare un File
dim fso as object
dim objFile as object
set fso = CreateObject ("Scripting.FileSystemObject")
If fso.FileExists (fname) THEN
 set objFile = fso.GetFile (Path)
 objFile.Delete
End If
set objFile = fso.CreateTextFile (Path, True)
objFile.WriteLine("Questa è una prova.")
objFile.Close
Set fso=Nothing
Set objFile=Nothing
Ciao
@Alex
End Sub
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio 
news:d2b8kc$gvp$1...@hulme.interac.it...

Perchè non provi a mettere il codice
   Dim fs
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set a = fs.CreateTextFile("c:\prova.txt", True)
   a.WriteLine("Questa è una prova.")
   a.Close
dentro 1 file con estenzione .vbs (puoi utilizzare il blocco note) e lo 
esegui (doppio click)?
Ciao Gaspare

 ha scritto nel 
messaggio news:jN92e.1129843$35.42...@news4.tin.it...

Grazie, ma vorrei restare in access ...
E che files sono? Eseguibili di visual basic creati cosi al volo?

 ha scritto nel messaggio 
news:909b09c378134d634a...@mygate.mailgate.org...

Grazie alex, quello che ho postato era quanto illustrava la guida.
Provo subito ... 

 ha scritto nel 
messaggio news:jN92e.1129843$35.42...@news4.tin.it...

Segui il consiglio di Alessandro e scusa: non avevo capito che volevi creare 
il file operando all'interno di access :-)
Gaspare 

 ha scritto nel messaggio 
news:909b09c378134d634a...@mygate.mailgate.org...

mi da errore qui .... dice che non è variabile definita...


 ha scritto nel 
messaggio news:_S92e.1129869$35.42...@news4.tin.it...

figurati grazie lo stesso! 

 ha scritto nel 
messaggio news:_S92e.1129869$35.42...@news4.tin.it...

Si tratta di VBScript: in   linguaggio di script definito da molti un 
"sottoinsieme" di  Visual Basic for
Applications...ma ripeto a dire non fà al tuo caso...ho letto male il tuo 
post...la risposta è quella di Alessandro
Ciao e buona giornata
Gaspare 

 ha scritto nel messaggio 
news:d2b9r1$h1h$1...@hulme.interac.it...

Dim fso As Object
Dim objFile As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("prova.txt") Then
 Set objFile = fso.GetFile("c:\")
 objFile.Delete
End If
Set objFile = fso.CreateTextFile("c:\prova.txt", True)
objFile.WriteLine ("Questa è una prova.")


 Set objFile = Nothing
perfetto funziona ...
io ho anche provato a sostituire
If fso.FileExists("prova.txt") Then
con
If fso.FileExists("path") Then
 

 If fso.FileExists("path") Then
Essendo Path una variabile stringa andava messa
senza le " ovviamente.
Nel mio demo che ti ho postato mi è sfuggito di sostituire
fName con Path, quella funzione l'ho estrapolata da una
un pò più complessa...!
Ciao
@Alex


 ha scritto nel messaggio
news:d2b8kc$gvp$1...@hulme.interac.it...

Ciao ciroteo,
VBA è già corredato di istruzioni per creare e scrivere in files di tipo
testo o di tipo binario.
Perchè scomodare WSH ?
----------------
Function Createafile()
Open "C:\Prova.txt" For Output As #1
Print #1, "Questa è una prova"
Close #1
End Function
-----------------
Ho usato una Function perchè ho visto che vuoi richiamarla dalla proprietà
*su click* di un controllo della maschera  che contiene il comando
*=createafile()*
Ciao Giorgio

 ha scritto nel 
messaggio news:42493d4f$0$18157$5fc...@news.tiscali.it...

hai ragione ... ho letto in qualche vecchio post che open serve non solo per 
aprire ma anche per creare!
Volevo solo verificare che se non esisteva il file me lo creasse ... invece 
già open lo crea e lo apre.
Thanks!