XProfan

Français

Uwe
''Pascal''
Niemeier

Hi gens!

ici un Beispiel, um alle (!) verfügbaren Informationen sur une Dossier einmal trop
ermitteln:
(avec "verfügbare Informationen" sommes qui im Windows-Explorer dans qui Detail-Ansicht wählbaren
Spalten gemeint; cela gilt aussi pour Fichiers dedans eines ZIP-Archives)

Kompilieren Marque Séparation

window 700,500
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$="C:1TestApril Rain.mp3"-------Dossier / Dossier (sans Backslash am Ende)
var File$="D:Test.zipTestReadMe.txt"--Dossier / Dossier dedans (!) einer zip-Dossier
var Folder$=del$(File$,len(File$,"\"),1,"\")-----Übergeordneter Dossier de File$
var nom$=substr$(File$,-1,"\")-------------------Dateiname de File$
var Shell&=ocxCreate("Shell.Application")----------Shell-objet
var Folder&=ocxMethod(Shell&,"NameSpace",Folder$)--Folder-objet
var File&=ocxMethod(Folder&,"ParseName",nom$)-----FolderItem-objet
var Lv&=create("gridbox",%hwnd,"Nr;0;40;Eigenschaft;0;250;Wert;0;250",0,10,10,600,400)
declare Info$,Data$

whileloop 0,50------------------------------------------comment viele Details gibts eigendlich?

    Info$=ocxMethod(Folder&,"GetDetailsOf",0,&loop)------dans Folder verfügbare Beschreibungen
    casenot len(Info$):continue--------------------------Manche Beschreibungen sommes vide (?)
    Data$=ocxMethod(Folder&,"GetDetailsOf",File&,&loop)--Details trop File
    addstring(Lv&,str$(&loop)+"|"+Info$+"|"+Data$)-------trop Gridbox hinzufügen

endwhile

Data$=ocxMethod(Folder&,"GetDetailsOf",File&,-1)--------Text de ToolTip (si disponible)
cas len(Data$):messagebox(Data$,"ToolTip-Text",0)
ocxRelease(File&,Folder&,Shell&)
ocxDeInit()
waitkey

PS: Details hierzu siehe MSDN sous "Shell Objets for Scripting and Microsoft Visual Basic"

SeeYou
Pascal

30.12.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

« cette Beitrag wurde comme Solution gekennzeichnet. »

Jörg
Sellmeyer

ici nochmal qui reparierte Code de Uwe:

Kompilieren Marque Séparation

window 700,500
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$="D:\\Irgend\\un\\Pfad\\trop\\einer\\Musik.MP3"'-------Dossier
'Dossier volonté sans Backslash am Ende transfert
'qui Dossier im Archiv wird comment une Dossier im normalen Dateisystem aufgerufen
'var File$="D:\\Irgend\\un\\Pfad\\trop\\einem\\Archiv.zip\\Dossier.txt"'--Dossier / Dossier dedans (!) einer zip-Dossier
var Folder$=del$(File$,len(File$,"\\"),1,"\\")'-----Übergeordneter Dossier de File$
var nom$=substr$(File$,-1,"\\")'-------------------Dateiname de File$
var Shell&=ocxCreate("Shell.Application")'----------Shell-objet
var Folder&=ocxMethod(Shell&,"NameSpace",Folder$)'--Folder-objet
var File&=ocxMethod(Folder&,"ParseName",nom$)'-----FolderItem-objet
var Lv&=create("gridbox",%hwnd,"Nr;0;40;Eigenschaft;0;250;Wert;0;250",0,10,10,600,400)
declare Info$,Data$

whileloop 0,50'------------------------------------------comment viele Details gibts eigendlich?

    Info$=ocxMethod(Folder&,"GetDetailsOf",0,&loop)'------dans Folder verfügbare Beschreibungen
    casenot len(Info$):continue'--------------------------Manche Beschreibungen sommes vide (?)
    Data$=ocxMethod(Folder&,"GetDetailsOf",File&,&loop)'--Details trop File
    addstring(Lv&,str$(&loop)+"|"+Info$+"|"+Data$)'-------trop Gridbox hinzufügen

endwhile

Data$=ocxMethod(Folder&,"GetDetailsOf",File&,-1)'--------Text de ToolTip (si disponible)
cas len(Data$):messagebox(Data$,"ToolTip-Text",0)
ocxRelease(File&,Folder&,Shell&)
ocxDeInit()
waitkey

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

01.06.2018 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

OMG, comment appétissant. ^ ^

30.12.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Weil ego so intéressant finde, habe je daraus la fois une kleine Procédure gemacht, avec qui on vite einzelne Inhalte abrufen peux:

Kompilieren Marque Séparation

'0 = nom
'1 = Taille
'2 = Typ
'3 = Geändert am
'4 = Erstellt am
'5 = dernier Zugriff am
'6 = Attribute
'7 = Status
'8 = Besitzer
'9 = Autor
'10 = Titel
'11 = Thema
'12 = catégorie
'13 = Seiten
'14 = Kommentare
'15 = Copyright
'16 = Interpret
'17 = Albumtitel
'18 = l'an
'19 = Titelnummer
'20 = Genre
'21 = la durée
'22 = Bitrate
'23 = Geschützt
'24 = Kameramodell
'25 = Bild aufgenommen am
'26 = Abmessungen
'27 = X Pixel
'28 = Y Pixel
'29 = Folgenname
'30 = Sendungsbeschreibung
'31 =
'32 = Abtastgröße
'33 = Abtastrate
'34 = Kanäle
'35 = Firma
'36 = Beschreibung
'37 = Dateiversion
'38 = Produktname
'39 = Produktversion
'40 = Keywords
 $H ocx3a.ph
 $I ocx3a.inc

Proc GetFileInfo

    Paramètres File$,Info%
    ocxInit()
    Var Folder$ = Del$(File$,len(File$,"\"),1,"\")'-----Übergeordneter Dossier de File$
    Var nom$ = $ Substr(File$,-1,"\\")'-------------------Dateiname de File$
    '$D »,File$,Info%,Folder$,nom$
    Var Shell& = ocxCreate("Shell.Application")'----------Shell-objet
    Var Folder& = ocxMethod(Shell&,"NameSpace",Folder$)'--Folder-objet
    Var File& = ocxMethod(Folder&,"ParseName",nom$)'-----FolderItem-objet
    Var Info$ = ocxMethod(Folder&,"GetDetailsOf",File&,Info%)
    ocxRelease(File&,Folder&,Shell&)
    ocxDeInit()
    Retour Info$

ENDPROC

Fenêtre 400,650

WhileLoop 0,40

    Imprimer &Boucle,GetFileInfo(Par$(0),&Boucle)

Wend

waitkey

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

31.12.2009 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ici nochmal qui reparierte Code de Uwe:

Kompilieren Marque Séparation

window 700,500
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$="D:\\Irgend\\un\\Pfad\\trop\\einer\\Musik.MP3"'-------Dossier
'Dossier volonté sans Backslash am Ende transfert
'qui Dossier im Archiv wird comment une Dossier im normalen Dateisystem aufgerufen
'var File$="D:\\Irgend\\un\\Pfad\\trop\\einem\\Archiv.zip\\Dossier.txt"'--Dossier / Dossier dedans (!) einer zip-Dossier
var Folder$=del$(File$,len(File$,"\\"),1,"\\")'-----Übergeordneter Dossier de File$
var nom$=substr$(File$,-1,"\\")'-------------------Dateiname de File$
var Shell&=ocxCreate("Shell.Application")'----------Shell-objet
var Folder&=ocxMethod(Shell&,"NameSpace",Folder$)'--Folder-objet
var File&=ocxMethod(Folder&,"ParseName",nom$)'-----FolderItem-objet
var Lv&=create("gridbox",%hwnd,"Nr;0;40;Eigenschaft;0;250;Wert;0;250",0,10,10,600,400)
declare Info$,Data$

whileloop 0,50'------------------------------------------comment viele Details gibts eigendlich?

    Info$=ocxMethod(Folder&,"GetDetailsOf",0,&loop)'------dans Folder verfügbare Beschreibungen
    casenot len(Info$):continue'--------------------------Manche Beschreibungen sommes vide (?)
    Data$=ocxMethod(Folder&,"GetDetailsOf",File&,&loop)'--Details trop File
    addstring(Lv&,str$(&loop)+"|"+Info$+"|"+Data$)'-------trop Gridbox hinzufügen

endwhile

Data$=ocxMethod(Folder&,"GetDetailsOf",File&,-1)'--------Text de ToolTip (si disponible)
cas len(Data$):messagebox(Data$,"ToolTip-Text",0)
ocxRelease(File&,Folder&,Shell&)
ocxDeInit()
waitkey