|
Registrieren
Login
Autor
Hamtaro_
« Moderator »
Anmeldedatum: 06.05.2007
Beiträge: 217
Wohnort: NRW
Filebrowser z.B. für ein RAT
Verfasst am: 10.05.2007, 19:26
Man liest immer wieder von der SChwierigkeit einen Filemanager zu coden
(fragt mich aber nicht, wo 
). Mit Diesem Code ist ein Reines Durchforschen des PCs möglich. Und keinerlei Dateizugriff
Es gibt sicherlich bessere Möglichkeiten das zu lösen, aber hier ist meine:
http://www.megaupload.com/de/?d=Y8N6PKDG
pw: vb-x.org
mfg
HamTaro
_________________
Wie findet ihr meine Sig?
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
Verfasst am: 17.11.2007, 12:29
hiho...
bei mir kommt folgende meldung:
---------------------------
Microsoft Visual Basic
---------------------------
Compile error:
User-defined type not defined
---------------------------
OK Hilfe
---------------------------
Die meldung verweißt auf dei variable
Dim oFSO As FileSystemObject
ich hab keine ahnung wo der fehler leigt..
als ich deine projektdateien genutz habe, kam der fehler nicht.
jedoch habe ich nichts vom code weggenommen.
MfG
_________________
big earl_
Coder
Anmeldedatum: 11.05.2007
Beiträge: 208
Verfasst am: 17.11.2007, 13:50
wow big thx
wer ma gucken was sich damit machen lässt
sind aber noch errors falls der Ordner nicht existiert bzw. falls der Server nicht geöffnte wurde
exe-cute_
Poster
Anmeldedatum: 21.10.2007
Beiträge: 154
Verfasst am: 13.01.2008, 05:49
big earl
jou dasis ja nur das grundgeruest.
ich hab hierfuer noch was:
Code: Public Function GetIconIndex(FileName As String) As String
If InStr(FileName, "\") Then
Dim sTemp() As String
sTemp() = Split(FileName, "\")
FileName = sTemp(UBound(sTemp))
End If
Dim cTemp() As String
cTemp() = Split(FileName, ".")
Select Case cTemp(UBound(cTemp))
Case "jpg", "JPG", "png", "PNG", "gif", "GIF", "bmp", "BMP", "ico", "ICO"
GetIconIndex = 1
Case "exe", "EXE"
GetIconIndex = 2
Case "mp3", "wav", "WAV", "avi", "AVI"
GetIconIndex = 3
Case Else
GetIconIndex = 4
End Select
End Function
Diese Function ermittelt den index des icons in der imagelist
das hattest du glaub ich angesprochen...keine ahnung..os schon etwas laenger als ich mir das angeguggt hatte.
MfG
_________________
ZiG_
Überflieger
Anmeldedatum: 07.03.2007
Beiträge: 1248
Verfasst am: 13.01.2008, 11:14
Weiß nicht, ob du deine Frage vom 17.11 schon selbst lösen konntest, aber hier trotzdem mal ne Antwort von mir.
Du mußt für das FileSystemObject einen Verweis setzen.
Unter "Projekt -> Verweise" einfach "Microsoft Scripting Runtime" aktivieren.
Dann sollte es gehen.
Achja.
Die Function zum Icon (bzw. Index) ermitteln zur Dateiendung, könnte man einfacher machen, wenn du deinen Icons in der Imagelist einfach eindeutige keys verteilst.
Ich empfehle überhaupt wenn möglich keys zu verteilen, egal ob Imagelist, ListView (Columns), Tabbed Dialog usw.
Die Handhabung wird dadurch einfach viel leichter.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
Verwandte Themen
Aufrufe
Letzter Beitrag
msgbox mit symbol _&_ z.B. yesno oder systemmodal
1078
26.09.2008, 23:16
Abändern eines Ordnernamens (z.B. C:\Programme = Programme)
1196
23.04.2008, 15:33
"Zurück-Funktion" mit Listview und z.B. DirView
734
17.04.2008, 13:30
Fenster auslesen z.b von icq oder msn wer online kommt
1224
11.02.2008, 16:46
IP Stealer example 4 RuaP and vb-x.org
1093
30.04.2007, 16:20
