VB初心者質問スレ Part4
■ このスレッドは過去ログ倉庫に格納されています
0896デフォルトの名無しさん
NGNGコマンドボタンでも付かないような
「新規テキスト ドキュメント.txt」をドロップしても普通に開きますが
Private Sub Command1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim strFile As String
strFile = Data.Files(1)
Debug.Print strFile
Shell "notepad.exe " & strFile, vbNormalFocus
End Sub
■ このスレッドは過去ログ倉庫に格納されています