Disco Virtual

Vagner Nunes · Outubro 7, 2010

Prezados,

Mais uma vez Obrigado por todas as dúvidas esclarecidas, tem me ajudado muito nesta caminhada.

Estou com um problemao. Um cliente me pediu para criar um Disco Virtual, não sei nem como começar, procurei no google, mas só vem disco virtual de hospedagem, não tem nenhum exemplo bacana.

Existe alguma forma de fazer um disco por meio do ASP, gravados em banco, com pastas e subpastas?

Sds,

Vagner Nunes

augustoclaro · Outubro 7, 2010

Sim há... Crie no banco de dados uma tabela pastas com idPasta e idOrigem

Haverá uma pasta raiz, com id 1.

Todas as pastas nesta pasta raíz terão o idOrigem como 1

Aí vamos supor que vce queira uma coisa assim:

raiz>arquivos>músicas>Charlie Brown.mp3

vai ter a pasta raiz com id 1 e idorigem 0

a pasta arquivs com id 2 e idorigem 1

e a pasta músicas com o id 3 e o idorigem 2

e na tabela arquivos coloca um idPasta.

aí vai ter um registro com nome Charlie Brown.mp3 e idpasta 3.

Espero ter ajudado.

Se não fui claro, aviza que eu tento explicar melhor e talvez até fazer um exemplo.

l_nando · Outubro 8, 2010

Cara, não manjo muito, mas acho que pode usar o FSO também.

Se eu estiver errado alguém pode me corrigir.

Mas dá uma pesquisada.

augustoclaro · Outubro 8, 2010

sim estava pensando nisso também, além de ter a estrutura do disco no banco de dados, ter uma pasta com as pastas deste disco e os arquivos.

xanburzum · Outubro 8, 2010

você também precisa de uma estrutura física boa para armazenar os dados

Vagner Nunes · Outubro 8, 2010

Gostaria sim de uma explicação mais aprofundada. Se possível. Obrigado....

Vinicius Ianni · Outubro 8, 2010

Acho que a ideia deve ser mais ou menos essa:

Quantos usuários vão utilizar o serviço ? Quanto de espaço cada usuário terá disponivel ? Quais os arquivos permitidos e qual o tamanho máximo permitido para cada arquivo ?

Com base nessas informações, dá para montar o sistema de login que usará bd para autenticar.

Uma vez logado, usa o fso para ler as pastas do usuário e o espaço utilizado.

As demais operações com arquivos, usa o fso para manipular.

Pode usar um banco de dados para armazenar os arquivos armazenados, mas não acho que precise.

Usaria o bd para dados do usuário apenas.

xanburzum · Outubro 8, 2010

e o usuário ira precisar ter um code tipo explorer, para manipulr seus arquivos e pastas, ou seja, criando,excluindo,pesquisando etc

Patrique · Outubro 8, 2010

Isso é mole de se fazer, basicamente você terá que estudar FSO e tb escolher um bom componente de upload a não ser é claro que você queira fazer o seu proprio sistema de upload, porém para bc que esta começando sugiro o uso de componentes.

Portanto procure e estude por

FSO

Upload com componente (existem vários sugiro o dundas upload)

Estude tb mysql como BD

[]'s

augustoclaro · Outubro 8, 2010

Patrique:

eu raxei muito com a sua foto e o comentário abaixo dela AUHSauhsUAH ^^

xanburzum · Outubro 8, 2010

olha esse exemplo de Explorer, muito bom, fácil, rápido e objetivo. Exibe Drives (C:, D:, E:) , Nome, Tipo, Tamanho do Arquivo, Modificado pela última vez.




<html>
<head>
<title>Diretorio</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" Background="../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI70.500/Sandston.gif">

<%

Dim oFSO
Dim oFileItem
Dim oFolder
Dim oSubFolder
Dim oDrive
Dim CurrentPath

Set oFSO = CreateObject("Scripting.FileSystemObject")

CurrentPath = Request("Path")

If CurrentPath = "" Then CurrentPath = "C:\"

Set oFolder = oFSO.GetFolder(CurrentPath)
Set oFolderContents = oFolder.Files
%>

<FORM ACTION="default.asp" METHOD="Get">

<CENTER>
<TABLE  cellpadding=1 border=3>
	<TR>

		<TD align="Center" colspan="2">
			<Font Face="Verdana" SIZE ="5"><B>
				<IMG Name=Logo src="AniFloppy.gif">
			Caminho atual: <%= CurrentPath%></B>
				<IMG Name=Logo src="AniFloppy.gif">
			</FONT>
		</TD>
	</TR>

	<TR>
		<TD valign=top>
			<TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
				<TR align=Center BorderColor="#808080" BGColor="D3D3D3">
					<TH colspan=2 align=Center>Drives</TH>
				</TR>
				<%
				For each oDrive in oFSO.Drives
				%>
				<TR BorderColor="#FFFFFF">
					<TD align=right>

						<%Select Case oDrive.DriveType %>

						<%Case 1	'Removable %>
							<IMG Name=<%=oDrive.DriveLetter%> src="RemovableDrive.gif">
						<%Case 2	'HardDrive %>
							<IMG Name=<%=oDrive.DriveLetter%> src="HardDrive.gif">
						<%Case 3	'Newtork %>
							<IMG Name=<%=oDrive.DriveLetter%> src="NetworkDrive.gif">
						<%Case 4	'CD %>
							<IMG Name=<%=oDrive.DriveLetter%> src="CDDrive.gif">
						<%End Select %>

					</TD>

					<TD align=left>
						<Font Face="Verdana" SIZE ="2"><B>
							<A HREF=default.asp?Path=<%=oDrive.DriveLetter & ":\" %>&Drive=<%=oDrive.DriveLetter & ":\"%>>
							<%= "(" & oDrive.DriveLetter & ":)"%></A></B>
						</FONT>
					</TD>

					<%
					Next
					%>
				</TR>
			</TABLE>
		</TD>
		<TD valign=top>
			<TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
				<TR align=center BorderColor="#808080" BGColor="D3D3D3">

					<TH align=left colspan=2 border=1>Nome</TH>
					<TH align=left border=1>Tipo</TH>
					<TH border=1>Tamanho do Arquivo</TH>
					<TH border=1>Modificado pela última vez</TH>
				</TR>
				<%
				If Not oFolder.IsRootFolder Then
				%>
					<TD align=right>
						<IMG Name="Arrow" src="Arrow.gif">
					</TD>
					<TD align=left>

						<FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
							<A HREF=../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI70.500/default.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>>
							...</A></B>
						</FONT>
					</TD>
				<%
				End If


				For Each oSubFolder in oFolder.SubFolders
				%>
				<TR BorderColor="#FFFFFF" >
					<TD align=right>
						<IMG Name="Folder" src="Folder.gif">
				  </TD>
					<TD align=left>

						<FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
							<A HREF=../../Users/XANBUR~1/AppData/Local/Temp/Rar$DI70.500/default.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>>
						<%= oSubFolder.Name %></A></B>
						</FONT>
					</TD>
					<TD align=left>
						<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen">File Folder</FONT>
					</TD>
					<TD>
					</TD>
					<TD align=left>
						<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oSubFolder.DateLastModified %></FONT>
					</TD>
				</TR>
				<%
				Next

				For Each oFileItem in oFolder.Files
				%>
				<TR BorderColor="#FFFFFF">
					<TD align=right>
						<IMG Name="File" src="Files.gif">
					</TD>
					<TD align=left>
						<FONT Face="Verdana" SIZE ="2" COLOR="Blue"><%= oFileItem.Name %></FONT>
					</TD>
					<TD align=left>
						<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Type%></FONT>
					</TD>
					<TD align=right>
						<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Size %></FONT>
					</TD>
					<TD align=left>
						<FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.DateLastModified %></FONT>
					</TD>
				</TR>
			<%
			Next
			%>
			</TABLE>
		</TD>

	</TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>

Vagner Nunes · Outubro 11, 2010

Fiz uns testes aqui e ficou legal a visualialização dos arquivos, consegui fazer um procedimento para criar pstas, agora queria saber com faço para escolher a pasta onde quero que o upload enviar o arquivo.

Tenho aqui, um Upload prontinho e funcionando, mas queria saber como faço para além de escolher o arquivo, escolher também a pasta onde seria salvo aquele arquivo do Upload.

Aguardo....

Sds,

Vagner Nunes

augustoclaro · Outubro 11, 2010

Puxe a pasta atual quando ele clicar em Upload.

Por exemplo: ele está na pasta C:/ e clica em upload, então o upload será na pasta C:/.

Arquivado

Disco Virtual

Recommended Posts

Vagner Nunes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

l_nando 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Nunes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vagner Nunes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

augustoclaro 2

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante