Cuestión : ¿Cómo pongo al día el archivo, excepto a nuevo archivo original de la localización y de la subsistencia como está utilizando Visual Basic 2008?

Panorama:

Tenemos una variedad de archivos de HTML dentro de sus propias carpetas.  

Aquí está un ejemplo (app1, app2 y app3 son apenas nombres genéricos.  Los nombres reales de la carpeta varían)

C:\inetpub\v5\eLetters\app1\app1.html
C:\inetpub\v5\eLetters\app2\subapp2\app2.html
C:\inetpub\v5\eLetters\app3\app3.html

NOTA: C:\inetpub\v5\eLetters\ será siempre la trayectoria de directorio del principio.

Tenemos 3 servidores en los cuales estos archivos de HTML sean colocados.

El servidor 1 es el servidor del desarrollo donde desarrollamos los archivos de HTML

El servidor 2 es el servidor de la prueba de la garantía de calidad donde estos archivos de HTML serán probados para la exactitud

El servidor 3 es el servidor de la producción donde estarán los archivos de HTML en la producción

Meta:

Se ha creado un programa BASIC donde el usuario puede seleccionar la carpeta donde reside el HTML.  El archivo de HTML será enumerado en la caja de lista junto con la localización del directorio del archivo.  El usuario entonces podrá seleccionar el servidor que quisieran que el archivo de HTML fuera salvado (una vez que seleccionan el servidor el IP address dentro del archivo de HTML será puesto al día con el IP address de ese servidor)

Si el archivo existe en ese archivo después sobreescribe ese archivo.

IP-Program-Screenshot.jpg (41 KB) (tipo de archivo detalles) 

Screenshot del programa

Desafío:

Puedo poner al día el IP address dentro del archivo de HTML que el usuario seleccionó con el IP address basó en el servidor el usuario seleccionó.  También puedo escribir a ese archivo de HTML y ahorrarlo con el código siguiente:

Intento
sWrite dévil como System.IO.StreamWriter = nuevo IO.StreamWriter (lstHTMLFiles.Items.Item (i) .ToString)
         'Escribir el nuevo código al archivo de HTML, excepto archivo y después cerrar el archivo.
          sWrite.Write (rtfNewCode.Text)
          sWrite.Close ()
Coger ex como excepción
Terminar el intento

Qué quisiera hacer es:

Abrir el archivo de HTML que es mencionado
Cambiar el IP address dentro del archivo de HTML
Ahorrar \ \ servername \ v5 \ eLetters \ nameoffolder \ nameofhtml.html del archivo
      Si existe el archivo entonces sobreescribir el archivo
      Nota: Puedo cifrar difícilmente \ \ servername \ v5 \ eLetters \
Qué quisiera hacer es capturar el nombre siguiente de las carpetas y el nombre de fichero del HTML con la extensión y agregarlo como secuencia al final del \ \ servername \ v5 \ eLetters \
Guardar el archivo de HTML que fue enumerado original al igual que (acaba de ser seleccionado)
      Nota: Quisiera solamente que el archivo actualizado de HTML fuera salvado al servidor seleccionado.

Creo que moveremos solamente un archivo de HTML a la vez, pero puede ser que movamos varios archivos de HTML contemporáneamente.  

¿Debo utilizar si entonces declaración?

Si rbtnServer1.checked = entonces verdad
      Escribir el archivo a esta localización
Elseif rbtnServer2.checked = entonces verdad
      Escribir el archivo a esta localización
Elseif rbtnServer2.checked = entonces verdad
      Escribir el archivo a esta localización que cualquier idea sería grande.  
Terminar si

El desafío que estoy teniendo es cómo capturar el resto de la trayectoria después de que c:\inetpub\v5\eLetters\ que coloca eso en una secuencia y entonces que salva el archivo actualizado de HTML al servidor seleccionado y que guarda el HTML que fue seleccionado como es.

Cualquier idea sería grande.
 

Respuesta : ¿Cómo pongo al día el archivo, excepto a nuevo archivo original de la localización y de la subsistencia como está utilizando Visual Basic 2008?

Si entiendo que usted whant usted quiere correctamente debe conseguir
“app1 \ app1.html” de C:\inetpub\v5\eLetters\app1\app1.html
y
app2 \ subapp2 \ app2.html de C:\inetpub\v5\eLetters\app2\subapp2\app2.html
y
app3 \ app3.html C:\inetpub\v5\eLetters\app3\app3.html

¿La derecha?

Si ése es el caso después utiliza el código en la parte inferior esta manera:

msgbox (ReplaceServerFilePath (“lstHTMLFiles.Items.Item (i) .ToString”,” \ \ servername \ v5 \ eLetters "))

1: 2: 3: 4:

Función privada ReplaceServerFilePath (Byval OldServerFilePath como secuencia, Byval NewServerFilePath) como secuencia ServerFilePath dévil como secuencia = oldServerFilePath.Replace (“C:\inetpub\v5\eLetters”, string.empty) NewServerFilePath y ServerFilePath de vuelta Función del final