Fråga : Hur jag uppdaterar sparar, räddningen till nytt läge, och uppehälleoriginal sparar, som använder Visual Basic 2008?

Scenario:

Vi har en variation av HTML sparar inom deras egna mappar.  

Är här ett exempel (app1, app2 och app3 är precis släktnamn.  Den faktiska mappen namnger varierar),

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

NOTERA: C:\inetpub\v5\eLetters\ ska är alltid börjanarkivbanan.

Vi har 3 serveror som dessa html sparar i ska förläggas.

Server 1 är utvecklingsserveren var vi framkallar HTMLEN sparar

Server 2 är den testa serveren för kvalitets- försäkring var dessa HTML sparar ska testas för exakthet

Server 3 är produktionserveren var HTMLEN sparar ska är i produktion

Mål:

Ett grundläggande program har skapats var användaren kan välja mappen var HTMLEN bor.  Htmlen sparar ska listas i lista boxas tillsammans med arkivläget av spara.  Användaren som därefter ska, är kompetent att välja serveren som de önskar HTMLEN sparar för att sparas (när de väljer serveren IPet address inom HTMLEN sparar ska uppdateras med den servers IP address),

Om spara finns på det, spara överskrivar därefter som sparar.

IP-Program-Screenshot.jpg (41 KB) (filtyp specificerar), 

Screenshot av programet

Utmaning:

Förmiddag som I är kompetent att uppdatera IPet address inom HTMLEN, sparar användaren som är utvald med IPet address som baseras på serveren den utvalda användaren.  Också förmiddag som I är skrivkunnig till den HTML, sparar och räddningen det med efter kodifiera:

Försök
Dunkel sWrite som System.IO.StreamWriter = ny IO.StreamWriter (lstHTMLFiles.Items.Item (I) .ToString)
         'Skriv nytt kodifierar till HTML sparar, räddningen sparar och därefter sparar tätt.
          sWrite.Write (rtfNewCode.Text)
          sWrite.Close ()
Fånga före detta som undantag
Avsluta försök

Vad jag skulle, något liknande som ska göras är:

Öppna HTMLEN sparar som listas
Ändra IPet address inom HTMLEN sparar
Räddning spara till \ \ servername \ v5 \ eLetters \ nameoffolder \ nameofhtml.html
      Om spara finns överskrivar därefter sparar
      Notera: Jag kan hårt kodifiera \ \ servername \ v5 \ eLetters \,
Namnge med f8orlängning och tillfoga den som en stränga till avsluta av \ \ servername \ v5 \ eLetters \, vad jag skulle något liknande för att göra är tillfångatagandet de kända nästa mapparna och, html sparar -
Uppehälle som HTMLEN sparar, som listades ursprungligen, som är (den var precis utvald),
      Notera: Jag önskar endast den uppdaterade HTMLEN sparar för att sparas till den utvalda serveren.

Jag tror oss ska är endast röra en html sparar i sänder, men vi kan är rörs flera html sparar på en tid.  

Bör jag använda om därefter meddelandet?

Om rbtnServer1.checked = True därefter
      Skriv sparar till detta läge
Elseif rbtnServer2.checked = True därefter
      Skriv sparar till detta läge
Elseif rbtnServer2.checked = True därefter
      Skriv sparar till detta läge som några skulle idéer var stor.  
Avsluta om

Förmiddagen för utmaning som I den har, är hur till tillfångatagandet vila av banan, efter c:\inetpub\v5\eLetters\ som förlägger det in i en stränga, och därefter besparingen som den uppdaterade HTMLEN sparar till serveren som är utvald och håller HTMLEN, som var utvald, som är.

Några skulle idéer är stora.
 

Svar : Hur jag uppdaterar sparar, räddningen till nytt läge, och uppehälleoriginal sparar, som använder Visual Basic 2008?

Om jag förstår att du som är whant dig önskar korrekt ska få
”app1 \ app1.html” från C:\inetpub\v5\eLetters\app1\app1.html
och
app2 \ subapp2 \ app2.html från C:\inetpub\v5\eLetters\app2\subapp2\app2.html
och
app3 \ app3.html C:\inetpub\v5\eLetters\app3\app3.html

Högert?

Om det är fallet då, använd den längst ner kodifiera hitåt:

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

1: 2: 3: 4:

Privat fungera ReplaceServerFilePath (Byval OldServerFilePath som stränger, Byval NewServerFilePath) som stränger Dunkla ServerFilePath som stränger = oldServerFilePath.Replace (”C:\inetpub\v5\eLetters”, string.empty) Återgång NewServerFilePath & ServerFilePath Avsluta fungerar