Habe mir nicht den code durchgelesen... Nur als hinweis: Man kann mit dem FSO einfach umbenennen, indem man das name property des file objects neu setzt...
Dann braucht man keine komplizierten konstrukte, um den pfad zu bekommen etc.. Claudius > > Warum nicht einfach: > > AlterName = drive & "\" & file.name > NeuerName = drive & "\" & LCase(file.name) > > File.MoveFile Altername NeuerName > > > Th. > > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] > Sent: Thursday, April 11, 2002 1:42 PM > To: AspGerman Kaffeehaus > Subject: [aspdecoffeehouse] Dateinamen umbenennen > > > Hallo Zusammen, > > wei� jemand von euch wie ich �ber ASP Dateinamen umbenennen kann? > > Mein Problem: > > Durch einen mir noch nicht erkl�rliche Weise sind alle > Dateinamen die sich > im Inetpubverzeichnis liegen umgewandelt worden z. b. mydat.asp in > MYDAT.ASP > > Ich will folgendes Script nutzen, damit ich alle Dateien > wieder schnell > umbennen kann > > > ' Dateisystem-Zugriff erm�glichen: > set fs = Server.CreateObject("Scripting.FileSystemObject") > > ' wie hei�t diese Seite? > seitenpfad = Request.ServerVariables("URL") > seitenname = fs.GetFileName(seitenpfad) > > ' existiert der angegebene Ordner �berhaupt? > if fs.FolderExists(drive) then > ' ja, Ordner �ffnen: > set folder = fs.GetFolder(drive) > > ' alle Unterordner des Ordners ausgeben: > for each subfolder in folder.subfolders > %><tr class="subfolder"><td><a > href="<%=seitenname%>?drive=<%=Server.URLEncode(subfolder.path > )%>"><%=subfol > der.name%></a></td></tr><% > > Dateipfad = subfolder.path > next > > ' alle Dateien des Ordners ausgeben: > for each file in folder.files > ' Dateiextension bestimmen: > extension = lcase(fs.GetExtensionName(file.name)) > ' Ist der Dateityp im Webbrowser darstellbar? > if extension="asp" or extension="htm" or > extension="html" > then > ' ja, Dateiname als Hyperlink m�glich? > if len(file.path)>len(webpath) and > lcase(left(file.path, len(webpath)))=webpath then > ' ja, Datei liegt in �ffentlichem > Webserver-Ordner: > urlpath = mid(file.path, len(webpath)) > else > ' nein, Datei liegt nicht im > Einzugsbereich > des Webservers: > urlpath = file.path > end if > else > ' nein, nur anzeigen: > urlpath = file.path > end if > %><tr><td class="file"><a > href="<%=urlpath%>"><%=file.name%></a></td></tr> > > <% > Dim AlterName, Neuername > AlterName = drive & "\" & file.name > Altername = Replace(AlterName, "\\","\") > NeuerName = drive & "\" & LCase(file.name) > NeuerName = Replace(NeuerName, "\\","\") > If not AlterName = NeuerName then > Name AlterName as NeuerName ' Datei umbenennen > <<<<<<<--------------- FEHLERMELDUNG > Response.Write "Datei wurde umbenannt<br>" & vbcrlf > Response.Write "AlterName = " & AlterName & "<br>" & vbcrlf > Response.Write "NeuerName = " & NeuerName & "<br>" & vbcrlf > else > ' > end if > > Response.Flush > next > ' angegebenes Laufwerk oder Pfad existiert nicht: > %><tr class="error"><td>"<%=drive%>" konnte nicht gefunden > werden!</td></tr><% end if %> > > Wei� jemand Rat? > > Mit freundlichen Gr��en > Hotel Andr� M�nchengladbach > > > Andr� Scheres > http://hotelandre.de > http://partnerhotels.com > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = > Listenarchiv Sie > | k�nnen sich unter folgender URL an- und abmelden: > | > http://www.aspgerman.com/aspgerman/listen/anme> lden/aspdecoffeehouse.as > | p > > --- > > Checked by AVG anti-virus system (http://www.grisoft.com). > Version: 6.0.346 / Virus Database: 194 - Release Date: 4/10/2002 > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | > http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffee house.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
