- ベストアンサー
BASP21でファイル日時を取得する方法
- ファイル日時を取得するためには、BASP21を使用します。
- 特定のディレクトリの状態を確認するためのスクリプトがありますが、ファイル日時の取得方法が分かりません。
- ファイル名は取得できるのですが、取得したファイルの日時を知りたいです。
- kumar
- お礼率21% (19/87)
- その他（プログラミング・開発）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- Basp21に詳しい方!!
まったくの初心者です。 送信するメールにファイル添付されるようにしたいのですが、 どうしてもエラーが出てしまいます。 どこが間違えていますか？ ----------------------------------------------------------------------------------------------------------- 'Basp21でメールを送信します。 Set Basp = Server.CreateObject("basp21") tb = Request.TotalBytes br = Request.BinaryRead(tb) fn = Basp.FormFileName(br,"includedFile") fpath = Mid(fn,InstrRev(fn,"\")+1) leng = Basp.FormSaveAs(br,"includedFile",fpath) End If rc = Basp.SendMail(host, mailTo, mailFrom, subject, body, fpath) If rc = "" Then Response.Write "送信完了" Else Response.Write "送信失敗:" & rc End If set basp = Nothing
- 締切済み
- Microsoft ASP
- BASP21を使ってEXCELからメールの送信
BASP21を使ってEXCELからメールの送信をしたいのですが、できません。 自分なりに調べた結果、下記のコードになったのですが、どこかおかしいのでしょうか？ エラー表示は次になります。 530 5.7.1 client was not authenticated from メールアドレス よろしくお願いいたします。 Sub ボタン2_Click() ''[送信]ボタン Dim bobj, msg As String, i As Long Dim Server As String, Mailto As String, MailFrom As String Dim Subject As String, Attach As String, Body As String On Error Resume Next Set bobj = CreateObject("basp21") ''BASP21オブジェクト ''BASP21がインストールされているかどうかを判定する If Err = 429 Then MsgBox "BASP21がインストールされていません。", vbCritical Exit Sub End If ''必須データのチェック Server = "mail.○○○.com:587:60" ''SMTPサーバー Mailto = "○○○@hotmail.co.jp" ''宛先 MailFrom = "△△△@×××.co.jp" ''差出し人 Subject = "更新連絡" ''タイトル Body = "システムが更新しました" ''本文 msg = bobj.SendMail(Server, Mailto, MailFrom, Subject, Body, Attach) Set bobj = Nothing If msg <> "" Then MsgBox msg, vbExclamation Else MsgBox "メールを送信しました。", vbInformation End If End Sub
- ベストアンサー
- Excel（エクセル）
- ヤフーメールを監視して、uwscを実行
全くの初心者ですが、ヤフーメールを監視して、本文に特定の文字が含まれていたら、UWSCを実行するといったのは可能でしょうか？ メール本文に、/買い/と/ポンド円/が含まれていたら、A実行 /売り/と/ポンド円/が含まれていたら、Bを実行 /買い/と/ドル円/が含まれていたら、Cを実行 /売り/と/ドル円/が含まれていたら、Dを実行 ABSP21でファイルは取り込めたのですが、読むことが出来ません。 メールのSubjectには売り、買いとの情報はなく、本文を参照しなければなりません。 FGrepを使って以下の様にしてみましたが、AからDまで全て実行してしまいます。 UWSCで定期的にメールの監視をするつもりです。 bobj = CreateOLEObj("basp21") mail_server = "pop.mail.yahoo.co.jp" mail_id = "ID" mail_ps = "PASSWORD" dirname = "<c:\mail\basp21" sign1 = "買い" sign2 = "売り" output = bobj.RcvMail(mail_server, mail_id, mail_ps, "SAVEALL", dirname) for i = Length(output)-1 to 0 step -1 retv = bobj.ReadMail(output[i], "from:subject:", dirname) pair1 = bobj.FGrep(output[i],"/ポンド円/k",5) pair2 = bobj.FGrep(output[i],"/ドル円/k",5) sign1 = bobj.FGrep(output[i],"/買い/k",10) sign2 = bobj.FGrep(output[i],"/売り/k",10) if stgy1>0 and sign１>0 then MSGBOX("ポンド円 買") if stgy1>0 and sign２>0 then MSGBOX(ポンド円 売") if stgy2>0 and sign1>0 then MSGBOX("ドル円 買") if stgy2>0 and sign2>0 then MSGBOX("ドル円 売") //上４行は検証様で実際にはUWSCのパスをいれます。 wk = bobj.RcvMail(mail_server, mail_id, mail_ps, "DELE"+(i+1), dirname) break next ウェブを見ながら、ここまで来ましたが自力では解決出来そうにありません。 手助けをおねがいします。
- 締切済み
- その他（プログラミング・開発）
- ◆ GetOpenFilename()で複数ファイル選択ができない、I
◆ GetOpenFilename()で複数ファイル選択ができない、IsArray()でＮＧ。。。 複数選択のやり方をOKWaveで見つけ便利に活用させて頂いていたのですが、 今年になって、機能しなくなり困っています。手が出ない状況です。 ご教示、よろしくお願いします。 ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー 概要：Debugでみると、IsArray()の結果がfalse（GetOpenFilename不成功） 使用環境： Microsoft EXCEL 2002 （10.6856.6853)SP3 Microsoft Visual Basic 6.0 Microsoft Windows XP Professional version 2002 Service Pack 3 不具合の発生箇所： 取込元ファイル = Application.GetOpenFilename(FileFilter:="Excelブック(*.xls),E*.xls", _ Title:="取込元の４ファイルを選択。Ctrlキーを押しながら複数選択。", MultiSelect:=True) If IsArray(取込元ファイル) Then ' 読む込み成功の確認、IsArray関数 ＜問題のマクロ＞ Sub メイン() ' ------------------------------------------------------------------- ' - 取込元のファイルを選択してオープン ' ------------------------------------------------------------------- Dim 取込元ファイル, Work1, Work3 As Variant Dim i As Integer 取込元ファイル = Application.GetOpenFilename(FileFilter:="Excelブック(*.xls),E*.xls", _ Title:="取込元の４ファイルを選択。Ctrlキーを押しながら複数選択。", MultiSelect:=True) If IsArray(取込元ファイル) Then ' 読む込み成功の確認、IsArray関数 For i = 1 To UBound(取込元ファイル) '配列の上限UBound(データの件数 ４件） Workbooks.Open 取込元ファイル(i) 'ファイルオープン Work1 = Dir(取込元ファイル(i)) WORK3 = WORK3 & Work1 & vbCrLf 'ＭＳＧ表示用（取込んだファイル名一覧） MsgBox "選択したファイルは " & vbCrLf & WORK3 & " ", vbInformation Next i Else MsgBox "取込元ファイルのオープンを" & vbCrLf & "中止しました", vbExclamation End If End Sub ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
- ベストアンサー
- Visual Basic
- BASP21を使ってファイル添付メールを送信したい
basp21 pro（http://www.b21soft.co.jp/basp21/）でメールにファイル添付したいのですが エクセルファイルを添付したいのですが、SendMailで型が一致しませんというエラーが出ます。 教えてください＞＜； ファイル名に指定しているセルCells(i, 28) は =AC3&"\"&AD3 の様に場所を指定しています （AD3 部分が変わっていくので。ここを変えた方がいいでしょうか？） 内容は一部省略しておりますが ↓です Sub SendMailMacro1() Dim szServer, szTo, szFrom, szSubj, szBody, ret, szLogfile, z As String Dim szFile As Variant Dim i, j As Long Dim fs, a As Object On Error GoTo Err_Handler Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("C:\Program Files\log.txt", True) szServer = Worksheets("maildata").Cells(10, 2) szFrom = Worksheets("maildata").Cells(8, 2) With Worksheets("senddata") i = 2 Do While .Cells(i, 1) <> "END" If .Cells(i, 1) = "1" Then If .Cells(i, 3) = "1" Then szTo = .Cells(i, 5) & vbTab & "bcc" & vbTab & .Cells(1, 36) End If szBody = .Cells(i, 26) szSubj = .Cells(i, 25) szFile = .Cells(i, 28) ret = SendMail(szServer, szTo, szFrom, szSubj, szBody, szFile) If Len(ret) <> 0 Then a.WriteLine (Date & " " & Time & " " & ret & "－" & szTo & "－" & szBody) MsgBox "エラー ・・・ " & i & "行目 ( " & ret & ")" .Cells(i, 1) = "エラー" Else .Cells(i, 1) = "完了" End If End If i = i + 1 Loop End With MsgBox "終了" GoTo Exit_sub Err_Handler: MsgBox Err.Description, vbCritical, "Error" GoTo Exit_sub Exit_sub: a.Close End Sub 宜しくお願い致します＜（＿ ＿）＞
- ベストアンサー
- Visual Basic
- Access2003からシンプルにファイルを添付してメール送信したいと
Access2003からシンプルにファイルを添付してメール送信したいと考えています。 こちら（http://www.site-cooler.com/kwl/asp/19.htm）を参考に、BASP21というコンポーネントを利用してACCESS上のフォームにボタンを用意してコードビルダで下記のように記述してみましたが、「コンパイルエラー：構文エラー」と表示されました。 どのように改善すれば良いのでしょうか。 ACCESS初心者の為、すみませんがご教示お願いします。 --------------------------------------------------------------------------- Private Sub コマンド0_Click() Set bobj = Server.CreateObject("basp21") bobj.SendMail() <%@ LANGUAGE = VBSCRIPT %> <% Dim strServer 'SMTPサーバ Dim strTo '宛先 Dim strFrom '送信元 Dim strSub 'メール標題 Dim strBody 'メール本文 Dim strFile '添付ファイル Dim result '戻り値 strServer = "smtp.xxxx.co.jp" strTo = "xxxx@xxxx.co.jp" strFrom = "xxxx@xxxx.co.jp" strSub = "件名" strBody = "本文です。" & vbCrLf & "本文終了" strFile = "c:\text.txt" Set bobj = Server.CreateObject("basp21") result = bobj.SendMail(strServer, strTo, strFrom, strSub, strBody, strFile) If result <> "" Then Response.Write ("メール送信エラー ：" & result) Response.End End If Response.Write ("メール送信完了") %> If result <> "" Then Response.Write ("メール送信エラー ：" & result) Response.End End If End Sub ---------------------------------------------------------------------------
- 締切済み
- その他MS Office製品
- perl サブルーチンでのファイル出力結果おかしい
以下のコードを実行するとカレントディレクトリの配下にある すべてのファイルのリストがコンソールとファイルに出力される はずですが、コンソールに表示されているファイルの一部しか ファイルに出力されていません。 どうも、最後に do_file()を呼び出したときのファイルしか リストされていないようなのですがなぜでしょうか。 どのようにすればよいのでしょうか。 よろしくお願いします。 (Windows7, ActivePerl(v5.16.3)) ----test.pl--------------------------------------------- &do_dir('.'); sub do_dir{ open(FILE2,'>list.txt') or die "$!"; my $dirname=shift; my $delim='/'; opendir(DIR,$dirname) or die "$!"; foreach $entry (readdir(DIR)){ next if($entry eq '.'); next if($entry eq '..'); if ($dirname=~/[\\\/]$/) { my $delim=''; } my $filename="$dirname$delim$entry"; if(-d $filename){ &do_dir($filename); } else { &do_file($filename); } } close(DIR); close(FILE2); } sub do_file{ my $filename=shift; return unless ($filename=~/\.*$/); print "$filename\n"; print FILE2 "$filename\n"; }
- ベストアンサー
- Perl
- 同じファイル内で、アップロードとアップロードされたファイルの処理をすることについて
OS:Window XP Pro 開発環境：Xampp(Apache + PHP + Mysql) 現在ファイルをアップロードする処理を書いているのですが、 この処理を １）a.phpでファイルをアップロードする処理 ２）b.phpでアップロードされたファイルの処理 と分けて、コーディングするのではなく １）a.php内にファイルをアップロードする処理とアップロードされたファイルの処理を一緒に記述する という風にできないかと思いましたので、 以下のようなコードを書いたのですが $_FILES['upload_file']['tmp_name']) の値を調べてみたところ、なんの値も 入っていなかったことから このコードでは、二つの処理を一つのファイル内に書くことが でいないようでした。 どうにかしてひとつのファイル内に この二つの処理を同居させることはできないのでしょうか？ a.php --------------------------------------- switch($action) { case "update": if(is_uploaded_file($_FILES['upload_file']['tmp_name'])) { $upload_file = $_FILES['upload_file']['tmp_name']); if(file_exists(dirname(__FILE__)."/profile_phote/") == TRUE) { $phote_name = dirname(__FILE__)."/profile_phote/".$upload_file; } else { mkdir(dirname(__FILE__)."/profile_phote/"); $phote_name = dirname(__FILE__)."/profile_phote/".$upload_file; } move_uploaded_file($_FILES['upload_file']['tmp_name'],$phote_name); "リダイレクト処理・・・" case ... case ... default: <form name="profile" action="" method="post"> <input type="file" name="upfile"> <input type="hidden" name="action" value="update"> </form> }
- ベストアンサー
- PHP
- Windows2000サーバーでは動いていたCGIがWindowsサーバー2003で動きません
ファイルのアップロードをするCGIです。 Windows2000サーバーでは問題なく動いていました。 先日Windows2003に乗り換えたとたん、動かなくなりました。 色々調べて、とりあえずエラーにはならなくなったのですが、正常に実行されないのです。 あやしいところは・・・ binmode(STDIN); while($remain){$remain-=sysread(STDIN,$buf,$remain);$read_data.=$buf;} $pos1=$pos2=$pos3=0; $delimiter=""; $max_count=0; $sendfilecnt=0; while(1){ $pos2=index($read_data,"\r\n\r\n",$pos1)+4; @headers=split("\r\n",substr($read_data,$pos1,$pos2-$pos1)); $filename=''; $name=''; foreach(@headers){ if($delimiter eq''){ $delimiter=$_; }elsif(/^Content-Disposition: ([^;]*); name="([^;]*)"; filename="([^;]*)"/i){ if($3){ $filename=$3; if($filename=~/([^\\\/]+$)/){$filename=$1;} } }elsif(/^Content-Disposition: ([^;]*); name="([^;]*)"/i){$name=$2;} } このへんです。 どうも、$filenameが''（ヌル）のままなので、この後正常にファイルのアップが動かないようなのです。 どなたか詳しい方、ぜひ教えてください。
- ベストアンサー
- CGI
- 【BASP21+ASP】MDEファイルがDL出来なくなった
いつもお世話になっております。 IIS+VBSで、サーバーに上げたファイルを各自の端末でダウンロード出来る ページを作成しています。 例えば、クライアントで <a href="download.asp?FILE=見積書.xls">見積書</a> をクリックすると、download.aspに変数FILE（見積書.xls）が 渡され、download.asp側でtoolsフォルダ配下の見積書.xlsを ダウンロードする準備を行う、といった具合です。 これまで順調に動いていたのですが、ここ２，３日で急に AccessのMDEファイルがダウンロード出来なくなってしまいました。 本来ならダウンロード確認画面に「XXX.mde」と表示されるはずが、 「download.asp?FILE=XXX_mde」と書き換えられたかのように表示され、 保存しようとしてもエラーになります。 開く を選択するとASPのエラーが表示されるのですが、 BASP21のobjBasp.BinaryReadメソッドのところで「特定できないエラー」が 表示されています。 今までMDEファイルもダウンロード出来ましたし、家で同じ環境を構築しても 上手くいったのですが、会社の環境だけこのような事態になっています。 どなたかこの解決方法をご教授願えませんでしょうか？ よろしくお願い致します。 （会社、自宅とも、WinXP＋IIS6です） ---------------download.asp のソース-------------- Dim dat Dim objBasp Dim fname Dim bydata fname = Request.QueryString("FILE") Response.ContentType = "application/octet-stream;name=" & fname Response.AddHeader "Content-Disposition","attachment;filename=" & fname Set objBasp = Server.CreateObject("Basp21") bydata = objBasp.BinaryRead(Server.MapPath("tools/" & fname)) Response.AddHeader "Content-Length", ubound(bydata) + 1 Response.BinaryWrite bydata Set objBasp = Nothing -------------------------------------------------------
- ベストアンサー
- Microsoft ASP
