RÉCUPÉRATION/ÉCRITURE DES NOMS DE FICHIERS CONTENUS DANS LE PRESSE-PAPIER
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
1 avril 2008 à 12:17
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 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.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 9 avril 2008 à 16:42
pas de lien entre ces deux actions....
Fixnyl
Messages postés11Date d'inscriptionmardi 21 janvier 2003StatutMembreDernière intervention 8 décembre 20131 9 avril 2008 à 13:23
Attention tout de même car si on fait une copie de fichiers ils sont déplacés.
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.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 2 avril 2008 à 09:15
certes, ce mix instructions VB / API n'est pas très heureux...
passes en tout APIs, pour le coup
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 1 avril 2008 à 21:16
If Clipboard.GetFormat(vbCFFiles) Then
If OpenClipboard(0) Then
.....
Pas très productif tout ça.
Clipboard.GetFormat(vbCFFiles)
C'est déjà:
OpenClipboard(0)
IsClipboardFormatAvailable(CF_HDROP)
CloseClipboard()
oommeeggaa3d
Messages postés97Date d'inscriptiondimanche 24 avril 2005StatutMembreDernière intervention 3 septembre 2010 1 avril 2008 à 12:22
Merci, je ne connaissais pas "join".
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 1 avril 2008 à 12:17
L'idée est bonne, attention a pas trop calquer sur le C:
For i = LBound(file_names) To UBound(file_names)
file_string = file_string & file_names(i) & vbNullChar
Next i
file_string = file_string & vbNullChar
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)