"urs bögli" schrieb:
> Bis jetzt löse ich das, indem ich alle Dateien von Hand umbenenne, die
> Links werden so auch richtig angepasst.
In FrontPage 2000 gab es ActiveWeb.AllFiles noch nicht, dann hilft der erste
Absatz von
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.
>>
>
>
> In FrontPage 2000 gab es ActiveWeb.AllFiles noch nicht, dann hilft der erste
> Absatz von
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".