עזרה בסקריפט
הסקריפט הבא אמור להעביר תמונות ממספר תיקיות לתיקייה מרכזית תוך כדיי שינוי שם הקבצים לשם התיקייה +מזהה נוסף אך משום מה הוא איננו עובד לי..HELP..
הסקריפט הבא אמור להעביר תמונות ממספר תיקיות לתיקייה מרכזית תוך כדיי שינוי שם הקבצים לשם התיקייה +מזהה נוסף אך משום מה הוא איננו עובד לי..HELP..
ListFolder(Server.MapPath(".\Fotki")) Sub ListFolder(path) Dim fs, folder, file, item, FileNew, FileNewExt, ThePathNew Set fs = CreateObject("Scripting.FileSystemObject") Set folder = fs.GetFolder(path) If (folder.Files.Count > 0)OR(folder.SubFolders.Count >0) Then 'Display a list of sub folders for each item in folder.SubFolders if (item.Name <> "new") then ListFolder(item.Path) next 'Display a list of files For each item in folder.Files Set fsys = CreateObject("Scripting.FileSystemObject") FileNew = mid(item.Name,1,InStrRev(item.Name,".")-1) FileNewExt = mid(item.Name,InStrRev(item.Name,".")) ThePathNew = Server.MapPath(".\Fotki\new")&"\"&FileNew&folder.Name&FileNewExt fsys.CopyFile item.Path,ThePathNew Next End If End Sub
