"urs bögli" schrieb:

> Bis jetzt löse ich das, indem ich alle Dateien von Hand umbenenne, die
> Links werden so auch richtig angepasst.

<http://google.com/groups?selm=bcg6e4.2u4.1%40news.christoph.schneegans.de>

In FrontPage 2000 gab es ActiveWeb.AllFiles noch nicht, dann hilft der erste
Absatz von <http://schneegans.de/frontpage/vba/vba-prozeduren/>.

Mach vorher eine Sicherungskopie. Es ist schon vorgekommen, daß FrontPage
bei dieser Vorgehensweise Links _nicht_ aktualisiert hat, so daß man mit VBA
mehr Arbeit hatte als ohne.

Christoph Schneegans schrieb:
> "urs bögli" schrieb:
>> is jetzt löse ich das, indem ich alle Dateien von Hand umbenenne, die
>> Links werden so auch richtig angepasst.
>>
> <http://google.com/groups?selm=bcg6e4.2u4.1%40news.christoph.schneegans.de>
>
> In FrontPage 2000 gab es ActiveWeb.AllFiles noch nicht, dann hilft der erste
> Absatz von <http://schneegans.de/frontpage/vba/vba-prozeduren/>.
Christoph,
herzlichen Dank für den Tipp. Ich benutze FP2003. Ich möchte aber nur
die Files in einem (sub-) Directory umbenennen, nicht alle Daten in
meinem Web. Kann man das in Deinem Code eingrenzen?
Urs Bögli

"urs bögli" schrieb:

> Ich möchte aber nur die Files in einem (sub-) Directory umbenennen, nicht
> alle Daten in meinem Web. Kann man das in Deinem Code eingrenzen?

Sub ASP2HTML()

Dim wf As WebFile
Dim folder As WebFolder
Set folder = ActiveWeb.LocateFolder("foo/bar")

For Each wf In folder.AllFiles

If wf.Extension = "asp" Then
wf.Move Replace(wf.url, ".asp", ".html"), UpdateLinks:=True
End If

Next

End Sub

bearbeitet nur Dateien im Ordner "bar" des Ordners "foo".