2010-11-12 15 views

Respuesta

41

Aquí es una sola línea que se va a crear (o overwrite) el archivo:

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

Nota: llamar a Dispose() asegura que la referencia al archivo está cerrado.

+0

Buena idea, pero recuerde que todos éramos n00bs en algún momento ... – Schenz

+0

Sí, soy un novato en esto cuando uso el ejemplo Im se me pide el error Nombre 'Archivo' no está declarado Sé cómo declarar string bat no name? – sam

+0

@Schenz: Lo sé, jaja, es por eso que puse la muestra. Me imaginé a mí mismo desde muy atrás pensando: "¿De dónde viene el nombre del archivo?" –

18

Es posible que también desee comprobar si el archivo ya existe para evitar tener que sustituir el archivo por accidente (a no ser que esa es la idea, por supuesto:.

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

Muchas gracias por esto. Pude crear el archivo, pero se bloqueó. Y tu código me ayudó a superar el bache. Gracias Geoffrey. Wayne –

4

Puede intentar escribir en la carpeta Documentos Aquí es una función de "depuración" que hice para las necesidades de depuración de mi proyecto:.

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 

Hay más carpetas estándar se puede acceder a través del objeto "SpecialFolder"

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

Este es el código que uso en Visual Basic 6.0. Me ayuda a crear un archivo txt en mi disco, escribir dos piezas de datos en él, y luego cerrar el archivo ... Darle una oportunidad ...

0

Se podía utilizar este

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

Esto abre el archivo reemplaza lo que está dentro y cierra el archivo.

Cuestiones relacionadas