crul使うとよろしい。
$ curl -u <user>:<password> -l -O ftp://<host>/<file>
ただ残念ながらワイルドカード指定でごっそり処理することができない。
file[00-99].csvみたいな連番指定はできる。
さくらインターネットでCRON実行メモ
拡張子が.shのファイルを作ります。
上2行に書く
#!/bin/sh PATH=/bin:/usr/bin:/sbin:/usr/sbin:/usr/local/bin
スクリプト書いたらファイルをftp等でUP。実行権限をつける。
さくらのcron設定の実行コマンドに
sh /home/ドメイン名/cron.sh
といった感じで書く
powershellで復元ポイント作成
yyyymmddで名前つけて作成
checkpoint.ps1
$formatted_date = (Get-Date).ToString("yyyyMMdd");
CheckPoint-Computer -Description $formatted_datevbsから実行するときは管理者権限つけてみよう
- ExecutionPolicy も指定しないと実行できな環境もある
Set objWshShell = WScript.CreateObject("WScript.Shell")
objWshShell.Run "powershell.exe -ExecutionPolicy RemoteSigned -File checkpoint.ps1 runas",0,1 '実行
VBAで配列を1文字列に合体
Sub JoinTest()
Dim ar(2) As String
ar(0) = "aa"
ar(1) = "bbb"
ar(2) = "cccc"
Dim s As String
s = Join(ar, ",")
Debug.Print s
End Sub
VBAで配列を追加していく技
ReDim Preserveしていく。
Sgn()で未初期化か判定できる
Dim arr() As String
For i = 0 To 4
If Sgn(arr) = 0 Then
'初期化されていないので初期化
ReDim Preserve arr(0)
Else
'初期化されているので要素を追加
ReDim Preserve arr(UBound(arr) + 1)
End If
arr(UBound(arr)) = i * 2
Next
'結果
'arr(0) 0
'arr(1) 2
'arr(2) 4
'arr(3) 6
'arr(4) 8
excelvbaで配列の文字列をMsgBoxで表示する
Join()使えば一発。
Dim arr(1 To 3) As String arr(1) = "東京" arr(2) = "大阪" arr(3) = "名古屋" MsgBox Join(arr)
