XProfan

Español

Uwe
''Pascal''
Niemeier

Hi Personas!

Hier una Ejemplo, en todos (!) verfügbaren Informationen una Expediente una vez a
ermitteln:
(Mit "verfügbare Informationen" son el en el Windows-Explorer en el Detalle-Ansicht wählbaren
Spalten gemeint; el gilt auch para Archivos innerhalb uno ZIP-Archives)

Kompilieren Marca Separación

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

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

    Info$=ocxMethod(Folder&,"GetDetailsOf",0,&bucle)------In Folder verfügbare Beschreibungen
    casenot len(Info$):continue--------------------------Manche Beschreibungen son leer (?)
    Data$=ocxMethod(Folder&,"GetDetailsOf",File&,&bucle)--Details a File
    addstring(Lv&,str$(&bucle)+"|"+Info$+"|"+Data$)-------Zu Gridbox hinzufügen

endwhile

Data$=ocxMethod(Folder&,"GetDetailsOf",File&,-1)--------Texto de ToolTip (si verfügbar)
caso len(Data$):messagebox(Data$,"ToolTip-Text",0)
ocxRelease(File&,Folder&,Shell&)
ocxDeInit()
waitkey

PS: Details hierzu siehe MSDN bajo "Shell Objects for Scripting and Microsoft Visual Basic"

SeeYou
Pascal

30.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Jörg
Sellmeyer

Hier otra vez el reparierte Code de Uwe:

Kompilieren Marca Separación

window 700,500
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$="D:\\Irgend\\una\\Pfad\\a\\uno\\Musik.MP3"'-------Expediente
'Ordner voluntad sin Backslash al Ende transferencia
'El Expediente en el Archiv se como una Expediente en el normalen Dateisystem aufgerufen
'var File$="D:\\Irgend\\una\\Pfad\\a\\una\\Archiv.zip\\Expediente.txt"'--Expediente / Ordner innerhalb (!) uno zip-Expediente
var Folder$=del$(File$,len(File$,"\\"),1,"\\")'-----Übergeordneter Ordner de File$
var Name$=substr$(File$,-1,"\\")'-------------------Dateiname de File$
var Shell&=ocxCreate("Shell.Application")'----------Shell-Objeto
var Folder&=ocxMethod(Shell&,"NameSpace",Folder$)'--Folder-Objeto
var File&=ocxMethod(Folder&,"ParseName",Name$)'-----FolderItem-Objeto
var Lv&=create("gridbox",%hwnd,"Nr;0;40;Eigenschaft;0;250;Wert;0;250",0,10,10,600,400)
declarar Info$,Data$

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

    Info$=ocxMethod(Folder&,"GetDetailsOf",0,&bucle)'------In Folder verfügbare Beschreibungen
    casenot len(Info$):continue'--------------------------Manche Beschreibungen son leer (?)
    Data$=ocxMethod(Folder&,"GetDetailsOf",File&,&bucle)'--Details a File
    addstring(Lv&,str$(&bucle)+"|"+Info$+"|"+Data$)'-------Zu Gridbox hinzufügen

endwhile

Data$=ocxMethod(Folder&,"GetDetailsOf",File&,-1)'--------Texto de ToolTip (si verfügbar)
caso 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 Zitat

Absatzweise Cita Zeilenweise Cita

OMG, como lecker. ^ ^

30.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Weil ego así interessant finde, Yo lo veces una kleine Procedimiento gemacht, con el uno rápidamente einzelne Inhalte abrufen kann:

Kompilieren Marca Separación

'0 = Name
'1 = Größe
'2 = Typ
'3 = Geändert al
'4 = Erstellt al
'5 = Letzter Zugriff al
'6 = Atributos
'7 = Status
'8 = Besitzer
'9 = Autor
'10 = Titel
'11 = Thema
'12 = Kategorie
'13 = Páginas
'14 = Kommentare
'15 = Copyright
'16 = Interpret
'17 = Albumtitel
'18 = Jahr
'19 = Titelnummer
'20 = Genre
'21 = Dauer
'22 = Bitrate
'23 = Geschützt
'24 = Kameramodell
'25 = Bild aufgenommen al
'26 = Abmessungen
'27 = X Pixel
'28 = Y Pixel
'29 = Folgenname
'30 = Sendungsbeschreibung
'31 =
'32 = Abtastgröße
'33 = Abtastrate
'34 = Kanäle
'35 = Firma
'36 = Descripción
'37 = Dateiversion
'38 = Produktname
'39 = Produktversion
'40 = Keywords
 $H ocx3a.ph
 $I ocx3a.inc

Proc GetFileInfo

    Parámetros File$,Info%
    ocxInit()
    Var Folder$ = Del$(File$,len(File$,"\"),1,"\")'-----Übergeordneter Ordner de File$
    Var Name$ = Substr$(File$,-1,"\\")'-------------------Dateiname de File$
    '$D "",File$,Info%,Folder$,Name$
    Var Shell& = ocxCreate("Shell.Application")'----------Shell-Objeto
    Var Folder& = ocxMethod(Shell&,"NameSpace",Folder$)'--Folder-Objeto
    Var File& = ocxMethod(Folder&,"ParseName",Name$)'-----FolderItem-Objeto
    Var Info$ = ocxMethod(Folder&,"GetDetailsOf",File&,Info%)
    ocxRelease(File&,Folder&,Shell&)
    ocxDeInit()
    Volver Info$

ENDPROC

Ventana 400,650

WhileLoop 0,40

    Imprimir &Loop,GetFileInfo(Par$(0),&Loop)

Wend

waitkey

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

31.12.2009 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hier otra vez el reparierte Code de Uwe:

Kompilieren Marca Separación

window 700,500
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$="D:\\Irgend\\una\\Pfad\\a\\uno\\Musik.MP3"'-------Expediente
'Ordner voluntad sin Backslash al Ende transferencia
'El Expediente en el Archiv se como una Expediente en el normalen Dateisystem aufgerufen
'var File$="D:\\Irgend\\una\\Pfad\\a\\una\\Archiv.zip\\Expediente.txt"'--Expediente / Ordner innerhalb (!) uno zip-Expediente
var Folder$=del$(File$,len(File$,"\\"),1,"\\")'-----Übergeordneter Ordner de File$
var Name$=substr$(File$,-1,"\\")'-------------------Dateiname de File$
var Shell&=ocxCreate("Shell.Application")'----------Shell-Objeto
var Folder&=ocxMethod(Shell&,"NameSpace",Folder$)'--Folder-Objeto
var File&=ocxMethod(Folder&,"ParseName",Name$)'-----FolderItem-Objeto
var Lv&=create("gridbox",%hwnd,"Nr;0;40;Eigenschaft;0;250;Wert;0;250",0,10,10,600,400)
declarar Info$,Data$

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

    Info$=ocxMethod(Folder&,"GetDetailsOf",0,&bucle)'------In Folder verfügbare Beschreibungen
    casenot len(Info$):continue'--------------------------Manche Beschreibungen son leer (?)
    Data$=ocxMethod(Folder&,"GetDetailsOf",File&,&bucle)'--Details a File
    addstring(Lv&,str$(&bucle)+"|"+Info$+"|"+Data$)'-------Zu Gridbox hinzufügen

endwhile

Data$=ocxMethod(Folder&,"GetDetailsOf",File&,-1)'--------Texto de ToolTip (si verfügbar)
caso len(Data$):messagebox(Data$,"ToolTip-Text",0)
ocxRelease(File&,Folder&,Shell&)
ocxDeInit()
waitkey