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)%>"><%=subfolder.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.asp
