Question : Comment est-ce que je mets le dossier à jour, sauf au nouveau dossier original d'endroit et de subsistance comme emploie Visual Basic 2008 ?

Scénario :

Nous avons une série de dossiers de HTML dans leurs propres chemises.  

Voici un exemple (app1, app2 et app3 sont juste des noms génériques.  Les noms réels de chemise varient)

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

NOTE : C:\inetpub\v5\eLetters\ sera toujours le chemin d'annuaire de commencement.

Nous avons 3 serveurs en lesquels ces dossiers de HTML seront placés.

Le serveur 1 est le serveur de développement où nous développons les dossiers de HTML

Le serveur 2 est le serveur d'essai de garantie de qualité où ces dossiers de HTML seront examinés pour l'exactitude

Le serveur 3 est le serveur de production où les dossiers de HTML seront dans la production

But :

Un programme de base a été créé où l'utilisateur peut choisir la chemise où le HTML réside.  Le dossier de HTML sera énuméré dans la boîte de liste avec l'endroit d'annuaire du dossier.  L'utilisateur pourra alors choisir le serveur qu'ils veulent que le dossier de HTML soit sauvé (une fois qu'ils choisissent le serveur l'IP address dans le dossier de HTML sera mis à jour avec l'IP address de ce serveur)

Si le dossier existe sur ce dossier alors recouvre ce dossier.

IP-Program-Screenshot.jpg (41 KBs) (type de dossier détails) 

Screenshot de programme

Défi :

Je peux mettre à jour l'IP address dans le dossier de HTML que l'utilisateur a choisi avec l'IP address a basé sur le serveur l'utilisateur a choisi.  Je peux également écrire à ce dossier de HTML et le sauver avec le code suivant :

Essai
Faible sWrite en tant que System.IO.StreamWriter = nouvel IO.StreamWriter (lstHTMLFiles.Items.Item (i).ToString)
         'Écrire le nouveau code au dossier de HTML, sauf le dossier et puis fermer le dossier.
          sWrite.Write (rtfNewCode.Text)
          sWrite.Close ()
Attraper ex comme exception
Finir l'essai

Ce que je voudrais faire est :

Ouvrir le dossier de HTML qui est énuméré
Changer l'IP address dans le dossier de HTML
Sauver \ de dossier \ servername \ v5 \ eLetters \ nameoffolder \ nameofhtml.html
      Si le dossier existe alors recouvrir le dossier
      Note : Je peux dur coder \ \ servername \ v5 \ eLetters \
Ce que je voudrais faire est de capturer le prochain nom de chemises et le nom de fichier de HTML avec la prolongation et de l'ajouter comme corde à la fin du \ \ servername \ v5 \ eLetters \
Garder le dossier de HTML qui a été à l'origine énuméré de même que (il a été juste choisi)
      Note : Je veux seulement que le dossier de HTML mis à jour soit sauvé au serveur choisi.

Je crois que nous déplacerons seulement un dossier de HTML à la fois, mais nous pourrions déplacer plusieurs dossiers de HTML en même temps.  

Au cas où j'employer si puis rapport ?

Si rbtnServer1.checked = rectifient alors
      Écrire le dossier à cet endroit
Elseif rbtnServer2.checked = rectifient alors
      Écrire le dossier à cet endroit
Elseif rbtnServer2.checked = rectifient alors
      Écrire le dossier à cet endroit que toutes les idées seraient grandes.  
Finir si

Le défi que j'ai est comment capturer le reste du chemin après que c:\inetpub\v5\eLetters\ plaçant cela dans une corde et puis sauvant le dossier de HTML mis à jour au serveur choisi et gardant le HTML qui a été choisi comme est.

Toutes les idées seraient grandes.
 

Réponse : Comment est-ce que je mets le dossier à jour, sauf au nouveau dossier original d'endroit et de subsistance comme emploie Visual Basic 2008 ?

Si je comprends que vous correctement whant vous voulez doit obtenir
« app1 \ app1.html » de C:\inetpub\v5\eLetters\app1\app1.html
et
app2 \ subapp2 \ app2.html de C:\inetpub\v5\eLetters\app2\subapp2\app2.html
et
app3 \ app3.html C:\inetpub\v5\eLetters\app3\app3.html

Droite ?

Si c'est le cas alors emploie le code au fond de cette façon :

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

1 : 2 : 3 : 4 :

Fonction privée ReplaceServerFilePath (Byval OldServerFilePath comme corde, Byval NewServerFilePath) comme corde Faible ServerFilePath comme corde = oldServerFilePath.Replace (« C:\inetpub\v5\eLetters », string.empty) NewServerFilePath et ServerFilePath de retour Fonction de fin