Click here to Skip to main content
15,917,321 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionHow can I add one menu item on the menu system of Window when I click right mouse on file? Pin
tramdtt13-Jun-04 16:05
tramdtt13-Jun-04 16:05 
AnswerRe: How can I add one menu item on the menu system of Window when I click right mouse on file? Pin
Dave Kreskowiak14-Jun-04 0:29
mveDave Kreskowiak14-Jun-04 0:29 
GeneralRe: How can I add one menu item on the menu system of Window when I click right mouse on file? Pin
tramdtt14-Jun-04 14:46
tramdtt14-Jun-04 14:46 
QuestionWord document temp file ~WRL2159.tmp what is this? Pin
skoizumi2911013-Jun-04 14:51
sussskoizumi2911013-Jun-04 14:51 
AnswerRe: Word document temp file ~WRL2159.tmp what is this? Pin
Dave Kreskowiak14-Jun-04 0:20
mveDave Kreskowiak14-Jun-04 0:20 
Generalquestion Pin
ahmad_yossef13-Jun-04 14:21
ahmad_yossef13-Jun-04 14:21 
GeneralRe: question Pin
Dave Kreskowiak14-Jun-04 2:57
mveDave Kreskowiak14-Jun-04 2:57 
GeneralImplementation of an FTP-like thing Pin
Member 1376406313-Jun-04 7:19
Member 1376406313-Jun-04 7:19 
I have made an implementation of an FTP which ought to work fine. But when do a run of it (by the call: http://localhost/FtpBrowser.asp) it says that there's too many users on the site (but I know that I am the only one) or it claims that there's a code error.
What do I do wrong?
I am using XP Pro if that information can help.
This is the code:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Sub skrivDrev()
set drv = fs.Drives
Response.Write "" & f.path & "
"
for each d in drv
Response.Write d.Sharename
Response.Write "" & d.DriveLetter & "   "
next
Response.Write "ROOT   "
Response.write "[..]"
End Sub
Sub skrivSubFolder()
i = 0
Response.Write ""
i = i + 1
wend
s = s & "
"
For Each f1 in fc
if i mod 10 = 0 then
s = s & "
"
end If
i = i + 1
s = s & "" & f1.name & ""
s = s & "
"
Next
i = i - 1
while not i mod 10 = 0
s = s & "
"
Response.write s
End Sub
Sub skrivfiler()
ReDim fileNames(f.files.count)
ReDim fileSize(f.files.count)
ReDim fileType(f.files.count)
ReDim fileDateLastModified(f.files.count)
i = 0
For Each fldr in f.files
fileNames(i) = fldr.name
fileSize(i) = fldr.size
fileType(i) = fldr.Type
fileDateLastModified(i) = fldr.DateLastModified
i = i + 1
Next
response.write ""
For i = f.files.count - 1 to 0 step -1
response.write ""
response.write ""
response.write ""
response.write ""
Next
response.write "
Name:SizeLastModifiedType
"
response.write fileNames(i) & "
" & fileSize(i) & "" & fileDateLastModified(i) & "" & fileType(i) & "
"
end sub
%>



<title>Ftp



abc
Testing!-
<%
'if Request.QueryString("sti") > "" then
' sti = Request.QueryString("sti")
'else
' sti = Server.MapPath(".")
'End IF
'Dim fs, f, fc ,sti
'set fs = CreateObject("Scripting.FileSystemObject")
'set f = fs.GetFolder(sti)
'Set fc = f.SubFolders
'skrivDrev
'skrivSubFolder
'Response.Write ""
'Response.Write "

"
'skrivfiler
'Response.Write "
"
%>


GeneralRe: Implementation of an FTP-like thing Pin
Dave Kreskowiak14-Jun-04 2:42
mveDave Kreskowiak14-Jun-04 2:42 
GeneralQuickly display large images Pin
NaserAbiat12-Jun-04 21:29
NaserAbiat12-Jun-04 21:29 
GeneralViewing a form created in Access Pin
ccotton33312-Jun-04 9:32
ccotton33312-Jun-04 9:32 
GeneralRe: Viewing a form created in Access Pin
Mekong River12-Jun-04 22:49
Mekong River12-Jun-04 22:49 
General.NET-BroadcastEventWindow Pin
PaleyX12-Jun-04 6:16
PaleyX12-Jun-04 6:16 
GeneralRe: .NET-BroadcastEventWindow Pin
PaleyX12-Jun-04 6:30
PaleyX12-Jun-04 6:30 
GeneralRe: .NET-BroadcastEventWindow Pin
Dave Kreskowiak12-Jun-04 7:16
mveDave Kreskowiak12-Jun-04 7:16 
GeneralRe: .NET-BroadcastEventWindow Pin
PaleyX12-Jun-04 7:19
PaleyX12-Jun-04 7:19 
GeneralRe: .NET-BroadcastEventWindow Pin
Dave Kreskowiak13-Jun-04 8:30
mveDave Kreskowiak13-Jun-04 8:30 
GeneralRe: .NET-BroadcastEventWindow Pin
PaleyX13-Jun-04 13:53
PaleyX13-Jun-04 13:53 
GeneralHelp: Unicode in VB Pin
aida12_9912-Jun-04 3:36
aida12_9912-Jun-04 3:36 
GeneralRe: Help: Unicode in VB Pin
Dave Kreskowiak12-Jun-04 7:12
mveDave Kreskowiak12-Jun-04 7:12 
GeneralRe: Help: Unicode in VB Pin
tramdtt13-Jun-04 15:41
tramdtt13-Jun-04 15:41 
GeneralRe: Help: Unicode in VB Pin
Dave Kreskowiak14-Jun-04 0:18
mveDave Kreskowiak14-Jun-04 0:18 
GeneralRe: Help: Unicode in VB Pin
tramdtt14-Jun-04 22:48
tramdtt14-Jun-04 22:48 
GeneralRe: Help: Unicode in VB Pin
Anonymous16-Jun-04 1:38
Anonymous16-Jun-04 1:38 
GeneralVB.NET Pin
Anonymous12-Jun-04 3:23
Anonymous12-Jun-04 3:23 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.