Visual Basic - subir 2 directorios

Life is soft - evento anual de software empresarial
   
Vista:

subir 2 directorios

Publicado por andreafuhr (95 intervenciones) el 19/11/2008 19:23:53
Hola gente linda!
Estoy necesitando a partir de la carpeta actual moverme 2 posiciones hacia arriba en la estructura de directorios. ¿Cómo puedo hacer esto?
Abajo les muestro lo que hice pero me parece codigo terriblemente sucio.
Si alguien me puede dar una mano?

Private Sub leerArchivo()
On Error GoTo err:


Dim strReadValue As String
strReadValue = App.Path
Dim vector() As String
Dim i As Integer
vector = Split(strReadValue, "")
strReadValue = ""
For i = 0 To (UBound(vector) - 2)
strReadValue = strReadValue & vector(i) & ""
Next

Dim FileSystem
Dim Fileini As String
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Fileini = strReadValue & "Server.ini"



If FileSystem.FileExists(Fileini) Then

Else

End If
Exit Sub
err:
MsgBox err.Number & " " & err.Description
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder