XProfan

Have no Win7 to hand -

have You sinngemäß but with XProfan already the following attempts... ?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

cd desktoppfad
cd ..
cd ..
you /a:D// directories List

and then simply in any gelisteten directories\Desktop weg.

12/14/12 ▲

Thomas
Freier

i think.

'Rekursive Search to Files
'wrote Thomas Glockmann under Mithilfe
'of David Strutz and Frank Abbing
Def FindFirstFile(2) !"kernel32","FindFirstFileA"
Def FindNextFile(2) !"kernel32","FindNextFileA"
Def FindClose(1) !"kernel32","FindClose"
Def Desktop(0) ReadIni$("Hkey_1","Software\Microsoft\windows\CurrentVersion\Explorer\Shell Folders","Desktop")
Def StartMenueProgramme(0) ReadIni$("Hkey_1","Software\Microsoft\windows\CurrentVersion\Explorer\Shell Folders","Programs")
Struct WIN32_FIND_DATA=dwFileAttributes&,ftCreationTime#(8),ftLastAccessTime#(8),\
ftLastWriteTime#(8),nFileSizeHigh&,nFileSizeLow&,dwReserved0&,dwReserved1&,\
cFileName#(260),cAlternate#(14)
Declare Pos&
Declare HandleA&[]
Declare HandleA$[]
Declare Verz&
Declare Datei&
Declare FH&
Declare FindData#
Declare PM$
Dim FindData#, Win32_Find_Data
Declare way$
Declare mask$

Proc DateiListe

    Parameters way$,mask$
    PM$ = way$ + "\\" + mask$
    FH& = FindFirstFile(Addr(PM$),FindData#)

    While (Pos& >= 1) And (FH& >= 0) = 1

        Repeat

            If (@String $(FindData#,44) <> ".") And (@String $(FindData#,44) <> "..")

                If (FindData#.dwFileAttributes& & $10) = $10

                    Inc Verz&
                    HandleA&[Pos&] = FH&
                    HandleA$[Pos&] = way$
                    way$ = way$ + "\\" + @String $(FindData#,44)
                    Inc Pos&
                    Dateiliste(way$,mask$)

                Else

                    Inc Datei&
                    AddStrings(DAT_LV%,way$ + "\\" + @String $(FindData#,44))

                EndIf

            EndIf

        Until FindNextFile(FH&,FindData#) = 0

        Dec Pos&

        If Pos& >= 1

            FH& = HandleA&[Pos&]
            way$ = HandleA$[Pos&]
            Case FindNextFile(FH&,FindData#) = 0 : Break

        Else

            Break

        EndIf

    EndWhile

ENDPROC

Pos& = 1
Cls
var font&=CreateFont("Arial",16,0,0,0,0)
var DAT_LV%=CreateListBox(%hwnd,"",10,30,610,376)
SetFont DAT_LV%,font&
var a$=translate $(Desktop(0),"\","\\")
Print "Suche..."+a$
DateiListe(a$,"*")
FindClose(FH&)
WaitInput
DeleteObject font&
end

Gruß Thomas
Windows XP SP2, XProfan X2

Why sol höllenkompliziert or. what speaks against it ... ?

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

chdir $AppDataDir
chdir "../../"
addfiles "*"
listbox$("",1)

windows-versions with UAC can thereby naturally the change into directories
prevent.

Thomas
Freier

goes for a Update with one DAU. having already former to place several Altversionen found. prospective wished I via Email and Program updaten. means first once any middle-aged ***.exe Search and umbennen.
around the valid Arbeitsordner To experienced then the target the link on the desktop detect. . therefore the something "höllenkomplizierte" code, the, here removes, any found Verknüpfungen and ***.exe in a **.txt writes, The I then get for Updateanpassung.

Nachtrag
in the principle ought to it so his

windows 7: way to the Desktop

The Desktop the straight announced User is in the subesquent Ordner to find:

Original-windows-7-way:
C:\Users\[Username]\Desktop
way-Bezeichnung in the german windows-7-Version:
C:\user\[Username]\Desktop

Path under Windows XP, 2000, 2003 (dt.):
C:\documents and Settings\[Username]\Desktop

in the begot **.txt found I then a row, The presumably The sought link his could

C:\Users\Lund\AppData\Roaming\\\\\\\Microsoft\windows\Recent\JLKurier.lnk

so can I presumably The old ***.lnk not delete.

Gruß Thomas
Windows XP SP2, XProfan X2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

If I the right understand want You any *.lnk List and the way extract ?

enclosed a Include and a small Testcode

readlnkpath.prf

1 kB

Hochgeladen:

12/15/12

Downloadcounter:

Download

ole_shelllink.inc

6 kB

Hochgeladen:

12/15/12

Downloadcounter:

Download

XProfan X2
Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

Thomas
Freier

thanks Andreas, on WIN7 have you got it sure tested. by me with XP comes everything How expects (not).....a Endlosschleife....there no *.lnk present. Please once adjust:

Var I& = -1

Gruß Thomas
Windows XP SP2, XProfan X2

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

then attempt still time whom way for all user

GSFP(0,ADDR(Desktop$),25,0)'way any user-Desktop

there's Yes several Opportunities.

with me functions the incidentally too with XP

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

Thomas
Freier

Andreas, is still everything super. I have no *.lnk . The gängigen programs are in the Launcher . and the Loop end not:

Var Count& = GetCount(0)
Var I& =0' here rather -1

Repeat

    Print $ GetDir("@")+"\\"+GetString$(0,I&)
    Print
    Print "Das Program is here :"
    Print GetLinkPath(GetString$(0,I&))
    Inc I&

Until I& = count&

Gönnst You your Ole_ShellLink.inc yet a small Info on the last stood.

screen1.jpg	28 kB

Hochgeladen:	12/16/12

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

12/16/12 ▲

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

OK, I have the times for X2 adjusted. The Include as well as The Examples.

with you ought to now something at Reading showing, there in the example the Startmenü read becomes.

shelllink.zip	3 kB

Hochgeladen:	12/16/12

Downloadcounter:
		Download

12/16/12 ▲

Thomas
Freier

thanks, runs everything as should.

Gruß Thomas
Windows XP SP2, XProfan X2

12/17/12 ▲