rätt simpelt ASP problem...

2002-12-17 19:52

Medlem ♥

Plats: localhost
Registrerad: Jul 2001

●

rätt simpelt ASP problem...

Det som jag e ute efter är hur skall jag skriva för att den skall så att typ "1 to 5" blir att den söker från "enhet A: to F:"

<%

Set fs=Server.CreateObject("Scripting.FileSystemObject")
For i = 1 to 5


	if fs.Driveexists("c:") = true then
		Response.write("Enhet c: hittades")


End if
Next

%>

hoppas ni fattar, om den hittar tex a: så skriver den "a: hittades" och kör vidare, b: hittades, c: hittades , om inte d: finns så kör den vidare, e: hittades osv.. annars så skriver den inget.:confused:

edit: Sorry för topicen lite felstavat .

Visa signatur

Rapportera Redigera

Citera flera Citera

2002-12-17 19:58

Permalänk

mirza

Medlem

Registrerad: Jan 2002

●

Kanske ta reda på vad a -> e eller mer har för värde i chr()-funktionen...

Typ chr(123) kanske ger ett tecken eller en bokstav du vill ha...

Förmodligen kommer de också efter varandra... Så att om a är 14 så är b förmodligen 15 osv...

Så kör du då typ

For i = 14 to 15
blabladriveexists(chr(i) & ":/")
next

Du kan nog använda asc("a") för att få värdet för a...

Så kanske:

for i = asc("a") to asc("e")
blabla(i & "asd")
next

kanske

Rapportera Redigera

Citera flera Citera

2002-12-17 20:09

Permalänk

Sebb

Medlem ♥

Plats: localhost
Registrerad: Jul 2001

●

wee satt o mecka lite... körde chr 80-120 och då funka det fint man tackar...

Visa signatur

Rapportera Redigera

Citera flera Citera

2002-12-17 20:36

Permalänk

Sebb

Medlem ♥

Plats: localhost
Registrerad: Jul 2001

●

nu kommer ja igen.
Jag får Felet "Disken är inte klar"

koden

<%
Dim i, fs, d, n
Set fs=Server.CreateObject("Scripting.FileSystemObject")
For i = 97 to 105

	if fs.Driveexists(chr(i) & ":") = true then
		Set d = fs.GetDrive(chr(i) & ":")
		Response.write("Enhet " & chr(i) & ": hittades" & "<br>" & d.totalsize & "<br><br>")
		else
		Response.write("")

End if
Next

%>

tar jag bort " .totalsize " och bara skriver ut "d" så får jag enhetsbetäckningen, så jag fattar inte varför det inte fungerar.

Edit: Damn Me, haha jag fick med 2st cdromer. och detta tyckte den inte om. så nu funkar det..

Senast redigerat 2002-12-17 20:55

Visa signatur

Rapportera Redigera

Citera flera Citera

2002-12-18 11:27

Permalänk

leather

Medlem

Plats: Smauland
Registrerad: Jul 2002

●

Hade nått liknande för länge sen. Koden kanske inte stämmer samt ser ful ut, men kanske hjälper nått?

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrives = objFSO.Drives
antaldrives = 0
driveletters = ""
For Each drive in objDrives
If drive.DriveType = 4 and drive.IsReady Then
	antaldrives = antaldrives + 1
	driveletters = driveletters & drive.DriveLetter
End If
Next

if antaldrives =>2 then
	' kolla vilken cdrom som ska användas om det finns fler än 1
	response.write "Du har flera CD-ROM med skivor i.<br>" & VBnewline
	response.write "Vilken enhet vill du använda?<br><br>" & VBnewline
	b = 1
	for a = 1 to antaldrives
		enheten = Mid(driveletters,b,1)
		Set drivename = objFSO.GetDrive(objFSO.GetDriveName(objFSO.GetAbsolutePathName(enheten & ":")))
		response.write "<a href='?drive=" & enheten & "'>" & enheten & ": " & drivename.VolumeName & "</a><br>" & VBnewline
		b = b +1
	next
	Set objFSO = Nothing
	Set objDrives = Nothing
else
	' finns det bara 1 cdrom så använd den
	response.write "denna bidde det: " & driveletters
end if

Set objFSO = Nothing
Set objDrives = Nothing

Visa signatur

[ GA-P67A-UD4, i7 2600K @ 4.5GHz, Noctua NH-D14, 16GB XMS3, HD6970 2GB, 2x F120 120GB ]

Rapportera Redigera

Citera flera Citera

rätt simpelt ASP problem...

rätt simpelt ASP problem...

Externa nyheter

Spelnyheter från FZ