Discussion :

[rpolpere]

Bonjour,
Je cherche a cr�er un raccourci sur le bureau pour ouvrir le dernier fichier d�un dossier d�termin�

[tototiti2008]

Bonsoir,

pour cr�er le raccourcis

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
Sub TestRaccourcis()
Dim Shell As Object, DesktopPath As String, LNK As Object
    Set Shell = CreateObject("WScript.Shell")
    DesktopPath = Shell.SpecialFolders("Desktop")
    Set LNK = Shell.CreateShortcut(DesktopPath & "\Vlc.lnk")
    LNK.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe"
    LNK.Save
    Set LNK = Nothing
    Set Shell = Nothing
End Sub

Apr�s faudrait savoir ce que veut dire "le dernier fichier d�un dossier d�termin�"
le dernier dans quel ordre de tri ?

[rpolpere]

Bonsoir,

pour cr�er le raccourcis

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
Sub TestRaccourcis()
Dim Shell As Object, DesktopPath As String, LNK As Object
    Set Shell = CreateObject("WScript.Shell")
    DesktopPath = Shell.SpecialFolders("Desktop")
    Set LNK = Shell.CreateShortcut(DesktopPath & "\Vlc.lnk")
    LNK.TargetPath = "C:\Program Files\VideoLAN\VLC\vlc.exe"
    LNK.Save
    Set LNK = Nothing
    Set Shell = Nothing
End Sub

Apr�s faudrait savoir ce que veut dire "le dernier fichier d�un dossier d�termin�"
le dernier dans quel ordre de tri ?

Bonjour,
J'ai utilis� ceci, pas de probl�mes.
Merci.

@echo off
setlocal enabledelayedexpansion
set "folder=C:\Users\ABC\Centrale\Verifications"

for /f "delims=" %%i in ('dir /b /o-d /a-d "%folder%\*"') do (
set "latestFile=%%i"
goto :openFile
)

:openFile
if defined latestFile (
start "" "%folder%\%latestFile%"
) else (
echo Aucun fichier trouv�.
pause
)