RÉCUPÉRATION/ÉCRITURE DES NOMS DE FICHIERS CONTENUS DANS LE PRESSE-PAPIER
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
1 avril 2008 à 12:17
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 9 avril 2008 à 16:42
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 9 avril 2008 à 16:42
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/46252-recuperation-ecriture-des-noms-de-fichiers-contenus-dans-le-presse-papier
https://codes-sources.commentcamarche.net/source/46252-recuperation-ecriture-des-noms-de-fichiers-contenus-dans-le-presse-papier
9 avril 2008 à 16:42
9 avril 2008 à 13:23
Plus d'explication : Allez dans l'explorateur copier une séries de fichiers utiliser se bout de code dans VB :
Dim Tfiles() As String
If ClipboardGetFiles(Tfiles()) = True Then
For i = 1 To UBound(Tfiles)
nfiles = nfiles & Tfiles(i) & vbCrLf
Next
MsgBox nfiles
ClipboardSetFiles Tfiles()
End If
Puis utiliser la fonction Coller dans l'explorateur, à ce moment là les fichiers sont déplacer.
2 avril 2008 à 09:15
passes en tout APIs, pour le coup
1 avril 2008 à 21:16
If OpenClipboard(0) Then
.....
Pas très productif tout ça.
Clipboard.GetFormat(vbCFFiles)
C'est déjà:
OpenClipboard(0)
IsClipboardFormatAvailable(CF_HDROP)
CloseClipboard()
1 avril 2008 à 12:22
1 avril 2008 à 12:17
For i = LBound(file_names) To UBound(file_names)
file_string = file_string & file_names(i) & vbNullChar
Next i
file_string = file_string & vbNullChar
se code :
file_string = join(file_names, vbnullchar) & vbnullchar
Else
ClipboardSetFiles = False
et
drop_files.fWide = 0 ' ANSI characters.
drop_files.fNC = 0 ' Client coordinates.
sont inutiles en VB6 (valeurs par defaut)