Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/04/2009, 13:47
solangel
 
Fecha de Ingreso: abril-2008
Mensajes: 82
Antigüedad: 16 años, 9 meses
Puntos: 0
Alguien sabe cómo buscar y crear un archivo desde el código vb.net?

Hola amigos, resulta que estoy trabajando con vb.net 2005 y sqlserver2000, y necesito preguntar por el archivo "D:\Miproyecto\Miproyecto\Config\Miarchivo.con " que se hace con el block de notas, y si no existe debo crearlo.
He aplicado varias funciones que he recogido de internet,pero no me resultan en ese directorio, o sea, si por ej. busco con la función File.Exists en la unidad C: así:

If System.IO.File.Exists("C:\Miarchivo.con") = True Then

MsgBox("Archivo encontrado", MsgBoxStyle.Information)
Else

MsgBox("Archivo no encontrado", MsgBoxStyle.Information)

End If

Ahí me resulta, pero si coloco el directorio específico donde debo buscar el archivo

If System.IO.File.Exists("D:\Miproyecto\Miproyecto\Co nfig\Miarchivo.con") = True Then
MsgBox("Archivo encontrado", MsgBoxStyle.Information)

Else
MsgBox("Archivo no encontrado", MsgBoxStyle.Information)
End If

Aparece como no encontrado aunque el archivo exista en el directorio especificado

También he probado con

If File.Exists("D:\Miproyecto\Miproyecto\Config\Miarc hivo.con") Then y muchas opciones más y solo reconoce el archivo si lo creo en el C: y en el D: sin carpeta
y lo mismo me sucede a la hora de crear el archivo:

Try
Dim Archivo As System.IO.FileStream
Archivo = System.IO.File.Create("C:\Miarchivo.con")

Catch oe As Exception
MsgBox(oe.Message, MsgBoxStyle.Critical)
End Try

Ahí me lo crea sin problemas, también he probado con

Try
Dim Archivo As FileStream
Archivo = File.Create("C:\Miarchivo.con")
Catch oe As Exception
MsgBox(oe.Message, MsgBoxStyle.Critical)
End Try
que también resulta, pero a la hora de colocar la verdadera ruta donde debe ir el archivo

Try
Dim Archivo As System.IO.FileStream

Archivo = System.IO.File.Create("D:\Miproyecto\Miproyecto\Co nfig\Miarchivo.con")

Catch oe As Exception

MsgBox(oe.Message, MsgBoxStyle.Critical)

End Try

Tampoco resulta, ya no sé que puedo hacer para poder buscar y sobre todo crear "Miarchivo.con" en la carpeta donde corresponde
si alguien me puede ayudar le éstaré inmensamente agradecida.
Saludos amigos.