Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Dateibrowser ohne Fehler

Uploader:MitgliedWestbeam
Datum/Zeit:06.10.2011 14:05:11

Screen 12

#Include "dir.bi"

Dim As Any Ptr folder,file,folder2
folder=Imagecreate(32,32)
file=Imagecreate(32,32)
folder2=Imagecreate(32,32)

line folder,(0,0)-(31,31),15,BF
line folder,(2,7)-(31,28),7,BF
pset folder,(31,7),15
pset folder,(31,28),15
pset folder,(30,28),15
pset folder,(31,27),15
line folder,(5,3)-(13,3),0
Pset folder,(14,4),0
line folder,(0,8)-(5,3),0
line folder,(15,5)-(28,5),0
line folder,(1,7)-(26,7),0
line folder,(0,8)-(0,26),0
line folder,(29,6)-(29,24),0
line folder,(27,8)-(27,26),0
pset folder,(28,25),0
line folder,(0,26)-(27,26),0
line folder,(1,8)-(26,8),14,,&b10101010101010101010101010
line folder,(1,10)-(26,10),14,,&b10101010101010101010101010
line folder,(1,12)-(26,12),14,,&b10101010101010101010101010
line folder,(1,14)-(26,14),14,,&b10101010101010101010101010
line folder,(1,16)-(26,16),14,,&b10101010101010101010101010
line folder,(1,18)-(26,18),14,,&b10101010101010101010101010
line folder,(1,20)-(26,20),14,,&b10101010101010101010101010
line folder,(1,22)-(26,22),14,,&b10101010101010101010101010
line folder,(1,24)-(26,24),14,,&b10101010101010101010101010
line folder,(1,9)-(26,9),14,,&b01010101010101010101010101
line folder,(1,11)-(26,11),14,,&b01010101010101010101010101
line folder,(1,13)-(26,13),14,,&b01010101010101010101010101
line folder,(1,15)-(26,15),14,,&b01010101010101010101010101
line folder,(1,17)-(26,17),14,,&b01010101010101010101010101
line folder,(1,19)-(26,19),14,,&b01010101010101010101010101
line folder,(1,21)-(26,21),14,,&b01010101010101010101010101
line folder,(1,23)-(26,23),14,,&b01010101010101010101010101
line folder,(1,25)-(26,25),14,,&b01010101010101010101010101
line folder,(2,8)-(27,8),15,,&b10101010101010101010101010
line folder,(2,10)-(27,10),15,,&b10101010101010101010101010
line folder,(2,12)-(27,12),15,,&b10101010101010101010101010
line folder,(2,14)-(27,14),15,,&b10101010101010101010101010
line folder,(2,16)-(27,16),15,,&b10101010101010101010101010
line folder,(2,18)-(27,18),15,,&b10101010101010101010101010
line folder,(2,20)-(27,20),15,,&b10101010101010101010101010
line folder,(2,22)-(27,22),15,,&b10101010101010101010101010
line folder,(2,24)-(27,24),15,,&b10101010101010101010101010
line folder,(1,9)-(26,9),15,,&b10101010101010101010101010
line folder,(1,11)-(26,11),15,,&b10101010101010101010101010
line folder,(1,13)-(26,13),15,,&b10101010101010101010101010
line folder,(1,15)-(26,15),15,,&b10101010101010101010101010
line folder,(1,17)-(26,17),15,,&b10101010101010101010101010
line folder,(1,19)-(26,19),15,,&b10101010101010101010101010
line folder,(1,21)-(26,21),15,,&b10101010101010101010101010
line folder,(1,23)-(26,23),15,,&b10101010101010101010101010
line folder,(1,25)-(26,25),15,,&b10101010101010101010101010
line folder,(3,6)-(27,6),14,,&b10101010101010101010101010
line folder,(4,6)-(28,6),15,,&b10101010101010101010101010
pset folder,(27,7),15
line folder,(28,7)-(28,24),14,,&b1010101010101010
line folder,(28,7)-(28,24),15,,&b0101010101010101
pset folder,(5,4),14
pset folder,(6,4),15
pset folder,(7,4),14
pset folder,(8,4),15
pset folder,(9,4),14
pset folder,(10,4),15
pset folder,(11,4),14
pset folder,(12,4),15
pset folder,(13,4),14
line folder,(0,5)-(14,5),14,,&b01010101010
line folder,(0,5)-(14,5),15,,&b10101010101
pset folder,(3,5),0
pset folder,(4,5),14

line file,(0,0)-(31,31),15,BF
line file,(5,12)-(28,31),7,BF
line file,(3,0)-(15,0),0
line file,(3,0)-(3,29),0
line file,(3,29)-(26,29),0
line file,(26,29)-(26,11),0
line file,(26,11)-(15,0),0
line file,(15,0)-(15,11),0
line file,(15,11)-(26,11),0
paint file,(5,2),15,0
paint file,(18,7),7,0

line folder2,(0,0)-(31,31),15,BF
line folder2,(2,7)-(31,28),7,BF
pset folder2,(31,7),15
pset folder2,(31,28),15
pset folder2,(30,28),15
pset folder2,(31,27),15
line folder2,(5,3)-(13,3),0
Pset folder2,(14,4),0
line folder2,(0,8)-(5,3),0
line folder2,(15,5)-(28,5),0
line folder2,(1,7)-(26,7),0
line folder2,(0,8)-(0,26),0
line folder2,(29,6)-(29,24),0
line folder2,(27,8)-(27,26),0
pset folder2,(28,25),0
line folder2,(0,26)-(27,26),0
line folder2,(1,8)-(26,8),14,,&b10101010101010101010101010
line folder2,(1,10)-(26,10),14,,&b10101010101010101010101010
line folder2,(1,12)-(26,12),14,,&b10101010101010101010101010
line folder2,(1,14)-(26,14),14,,&b10101010101010101010101010
line folder2,(1,16)-(26,16),14,,&b10101010101010101010101010
line folder2,(1,18)-(26,18),14,,&b10101010101010101010101010
line folder2,(1,20)-(26,20),14,,&b10101010101010101010101010
line folder2,(1,22)-(26,22),14,,&b10101010101010101010101010
line folder2,(1,24)-(26,24),14,,&b10101010101010101010101010
line folder2,(1,9)-(26,9),14,,&b01010101010101010101010101
line folder2,(1,11)-(26,11),14,,&b01010101010101010101010101
line folder2,(1,13)-(26,13),14,,&b01010101010101010101010101
line folder2,(1,15)-(26,15),14,,&b01010101010101010101010101
line folder2,(1,17)-(26,17),14,,&b01010101010101010101010101
line folder2,(1,19)-(26,19),14,,&b01010101010101010101010101
line folder2,(1,21)-(26,21),14,,&b01010101010101010101010101
line folder2,(1,23)-(26,23),14,,&b01010101010101010101010101
line folder2,(1,25)-(26,25),14,,&b01010101010101010101010101
line folder2,(2,8)-(27,8),15,,&b10101010101010101010101010
line folder2,(2,10)-(27,10),15,,&b10101010101010101010101010
line folder2,(2,12)-(27,12),15,,&b10101010101010101010101010
line folder2,(2,14)-(27,14),15,,&b10101010101010101010101010
line folder2,(2,16)-(27,16),15,,&b10101010101010101010101010
line folder2,(2,18)-(27,18),15,,&b10101010101010101010101010
line folder2,(2,20)-(27,20),15,,&b10101010101010101010101010
line folder2,(2,22)-(27,22),15,,&b10101010101010101010101010
line folder2,(2,24)-(27,24),15,,&b10101010101010101010101010
line folder2,(1,9)-(26,9),15,,&b10101010101010101010101010
line folder2,(1,11)-(26,11),15,,&b10101010101010101010101010
line folder2,(1,13)-(26,13),15,,&b10101010101010101010101010
line folder2,(1,15)-(26,15),15,,&b10101010101010101010101010
line folder2,(1,17)-(26,17),15,,&b10101010101010101010101010
line folder2,(1,19)-(26,19),15,,&b10101010101010101010101010
line folder2,(1,21)-(26,21),15,,&b10101010101010101010101010
line folder2,(1,23)-(26,23),15,,&b10101010101010101010101010
line folder2,(1,25)-(26,25),15,,&b10101010101010101010101010
line folder2,(3,6)-(27,6),14,,&b10101010101010101010101010
line folder2,(4,6)-(28,6),15,,&b10101010101010101010101010
pset folder2,(27,7),15
line folder2,(28,7)-(28,24),14,,&b1010101010101010
line folder2,(28,7)-(28,24),15,,&b0101010101010101
pset folder2,(5,4),14
pset folder2,(6,4),15
pset folder2,(7,4),14
pset folder2,(8,4),15
pset folder2,(9,4),14
pset folder2,(10,4),15
pset folder2,(11,4),14
pset folder2,(12,4),15
pset folder2,(13,4),14
line folder2,(0,5)-(14,5),14,,&b01010101010
line folder2,(0,5)-(14,5),15,,&b10101010101
pset folder2,(3,5),0
pset folder2,(4,5),14
line folder2,(22,20)-(8,20),0
line folder2,(8,20)-(8,15),0
line folder2,(5,14)-(11,14),0
line folder2,(5,14)-(8,11),0
line folder2,(9,12)-(11,14),0
paint folder2,(8,13),0

Chdir("../..")

Dim Shared As String filename,foldername

Type Icon
    As String nam,typ
    As Integer x,y,lenx
End Type

Color 0,15

Dim Shared As Icon Files(999)
Declare Sub AddFile()
Dim Shared As Integer anzfiles,mx,my,mb,tempx,tempy

Declare Sub ShowFiles()
ShowFiles()
Do
    Sleep 1,1
    Getmouse mx,my,,mb
    Screenlock
        Cls
        Line (0,0)-(640,480),15,BF
        For i As Integer=1 To anzfiles
            If Files(i).typ="Folder" Then Put (Files(i).x,Files(i).y),folder,Pset
            If Files(i).typ="File" Then Put (Files(i).x,Files(i).y),file,Pset
            If Files(i).typ="Bfolder" Then Put (Files(i).x,Files(i).y),folder2,Pset
            If Len(Files(i).nam)<10 Then
                If CurDir<>"/" Then Color 0,15
                If CurDir="/" Then Color 12,0
                Draw String(Files(1).lenx,Files(1).y+34),".."
                Color 0,15
                Draw String (Files(i).lenx,Files(i).y+34),Files(i).nam
            Else
                Draw String (Files(i).lenx,Files(i).y+34),Left(Files(i).nam,10)+"..."
            End If
            If mx>Files(i).x And mx<Files(i).x+32 And my>Files(i).y And my<Files(i).y+32 And mb=1 Then
                Chdir(Files(i).nam)
                anzfiles=0
                Files(i).x=0
                Files(i).y=10
                ShowFiles()
                Sleep 200
            End If
            Draw String(500,460),CurDIr
        Next
    Screenunlock
Loop Until Inkey=Chr(27)
ImageDestroy folder
ImageDestroy file
End

Sub AddFile()
    anzfiles+=1
    With Files(anzfiles)
        .y = ((anzfiles - 1) \ 4) * 60 +5
        .x = ((anzfiles - 1) mod 4) * (600 \ 4) +20
    End With
End Sub

Sub ShowFiles()
 anzfiles=0
 foldername = dir("*",&H10 + &H01)
 AddFile()
 With Files(anzfiles)
        .y = ((anzfiles - 1) \ 4) * 60 +5
        .x = ((anzfiles - 1) mod 4) * (600 \ 4) +20
        .nam=".."
        .typ="Bfolder"
End With
Files(anzfiles).lenx=(Files(anzfiles).x+16)-Len(Files(anzfiles).nam)*4
 DO
   if foldername<>"" then
     AddFile()
     Files(anzfiles).nam=foldername
     Files(anzfiles).typ="Folder"
     If Len(Files(anzfiles).nam)<10 Then
        Files(anzfiles).lenx=(Files(anzfiles).x+16)-Len(Files(anzfiles).nam)*4
    Else
        Files(anzfiles).lenx=(Files(anzfiles).x+16)-36
    End If
   end if
   foldername =dir
 LOOP WHILE LEN(foldername)

filename = dir("*",&H00)
 DO
  if filename<>"" then
     AddFile()
     Files(anzfiles).nam=filename
     Files(anzfiles).typ="File"
     If Len(Files(anzfiles).nam)<10 Then
        Files(anzfiles).lenx=(Files(anzfiles).x+16)-Len(Files(anzfiles).nam)*4
    Else
        Files(anzfiles).lenx=(Files(anzfiles).x+16)-36
    End If
   end if
   filename = dir
 LOOP WHILE LEN(filename)
 End Sub