2010-11-12 19 views

risposta

41

Ecco una linea singola che creerà (o overwrite) il file:

File.Create("C:\my files\2010\SomeFileName.txt").Dispose() 

Nota: chiamando Dispose() assicura che il riferimento al file viene chiuso.

+0

Buona idea, ma ricorda che eravamo tutti n00bs ad un certo punto ... – Schenz

+0

sì io sono un principiante a questo quando uso l'esempio Im richiesto con l'errore Nome 'File' non è dichiarato So come dichiarare la stringa bat non il nome? – sam

+0

@Schenz: lo so, lol, ecco perché inserisco il campione. Mi sono immaginato da modi di pensare: "Da dove viene il nome del file?" –

18

Si potrebbe anche voler controllare se il file esiste già per evitare di sostituire il file per caso (a meno che è l'idea di corso:.

Dim filepath as String = "C:\my files\2010\SomeFileName.txt" 
If Not System.IO.File.Exists(filepath) Then 
    System.IO.File.Create(filepath).Dispose() 
End If 
+0

Grazie mille per questo. Sono stato in grado di creare il file, ma diventerebbe bloccato. E il tuo codice mi ha aiutato a superare il dosso stradale. Grazie Geoffrey. Wayne –

4

Si può provare a scrivere nella cartella Documenti Ecco un funzione di "debug" l'ho fatto per le esigenze di debug del mio progetto:.

Private Sub writeDebug(ByVal x As String) 
    Dim path As String = System.Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) 
    Dim FILE_NAME As String = path & "\mydebug.txt" 
    MsgBox(FILE_NAME) 
    If System.IO.File.Exists(FILE_NAME) = False Then 
     System.IO.File.Create(FILE_NAME).Dispose() 
    End If 
    Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True) 
    objWriter.WriteLine(x) 
    objWriter.Close() 
End Sub 

ci sono più cartelle standard è possibile accedere tramite l'oggetto "SpecialFolder"

0
open C:\myfile.txt for append as #1 
write #1, text1.text, text2.text 
close() 

Questo è il codice che uso in Visual Basic 6.0. Mi aiuta a creare un file txt sul mio disco, scrivere due pezzi di dati in esso, e quindi chiudere il file ... Fare un tentativo ...

0

Si potrebbe utilizzare questo

FileOpen(1, "C:\my files\2010\SomeFileName.txt", OpenMode.Output) 
FileClose(1) 

Questo apre il file sostituisce qualunque cosa ci sia dentro e chiude il file.

Problemi correlati