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/anmelden/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/aspdecoffeehouse.asp
