Hjälp med att byta namn på katalog!

3 svar · 194 visningar · startad av Daniel78 30 apr. 2001

Daniel78Medlem sedan jan. 2001200 inlägg

Frågan30 apr. 2001 06:47#1

Hej, jag behöver hjälp med att byta namn på en katalog på webservern. Jag har utvecklat mina sidor på en dator med IIS 5.0 och har nu överfört dem till den "riktiga" webservern som har IIS 4.0. Nu fungerar denna funktion inte längre och jag vet inte varför! Funktionen innebär att man skriver in ett katalog namn och den skapar då en katalog och lägger sedan till en tabell med lite smått o gott i en databas men mappen får inte namnet som personen skrev in!
Kod:

	FS.CopyFolder strOriginFolder, strNewFolder, TRUE

	If FS.FolderExists(strNewFolder) Then
		Set CName = FS.GetFolder(strNewFolder)
		CName.Name = strNyttNamn

	Else
		Response.Write "Något gick snett!"
	End if

Koden kopierar först en original mapp med ett annat namn och döper sen om den till det nya namnet(strNyttNamn) som skrevs in. Och det är just namnbytet som inte fungerar allt annat fungerar, och med IIS 5.0 fungerar även namnbytet???

Daniel78Medlem sedan jan. 2001200 inlägg

4 maj 2001 06:40#2

Ingen som har något förslag? Kan det ha något med att ASP 3.0 inte finns på på IIS 4.0?

JanspeedMedlem sedan jan. 2001510 inlägg

4 maj 2001 06:57#3

Det där med asp vet jag inte. Men varför måste du kopiera mappen till ett namn och sedan ändra namnet. Varför kan du inte kopiera foldern till det nya namnet direkt?

strOriginFolder = c:\mapp\
strNewFolder = c:\newMapp\

FS.CopyFolder strOriginFolder, strNewFolder, TRUE

If FS.FolderExists(strNewFolder) Then
Response.Write "Det lyckades !"
Else
Response.Write "Något gick snett!"
End if

Eller är jag helt ute och cyklar nu? :)

//JANspeed

PatrikBMedlem sedan mars 20002 836 inlägg

4 maj 2001 07:04#4

Denna lilla kodsnutt direkt från VBDOCs:

Sub MoveAFolder(Source)
   Dim fso
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   fso.MoveFolder Source, "c:\windows\desktop\"
End Sub

och för att kopiera en mapp:

Sub CopyAFolder(Source)
   Dim fso
   Set fso = Server.CreateObject("Scripting.FileSystemObject")
   fso.CopyFolder Source, "c:\windows\desktop\"
End Sub

cya,
PatrikB

------------------
Ingenting är omöjligt.
Det omöjliga tar bara något längre tid att genomföra.

[Redigerat av PatrikB den 04 maj 2001]